home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / +look_here_1st!+ / reader_requests / alienbreed3d2 / verynewrender.s < prev    next >
Text File  |  1997-11-28  |  69KB  |  5,052 lines
  1.  
  2. SP EQU 1
  3. SPM EQU 1
  4. BS EQU 1
  5. BP EQU 1
  6. SH EQU 0
  7. PH EQU 1
  8. MB EQU 0
  9. AA EQU 0
  10. DQ EQU 1
  11. DB EQU 1
  12. PDQ EQU 1
  13.  
  14. ScreenWidth EQU 320
  15.  
  16. LARGESCREEN equ 0
  17.  
  18.  
  19. * the 'Hello World' program in 68000 Assembler
  20. * the C version can be found in the Intuition manual
  21.  
  22. * this source code (C) HiSoft 1992 All Rights Reserved
  23.  
  24. * for Devpac Amiga Version 2 the following symbols were changed
  25. * to avoid clashes with the new include files:
  26. * Screen->MyScreen, NewScreen->MyNewScreen
  27. * Window->MyWindow, NewWindow->MyNewWindow
  28.  
  29.     opt    c+,d+
  30.  
  31.     include    workbench:utilities/devpac/system            use pre-assembled header
  32.     include    exec/exec_lib.i
  33.     include    intuition/intuition.i
  34.     include    intuition/intuition_lib.i
  35.     include    graphics/graphics_lib.i
  36.     include    graphics/text.i
  37.  
  38. INTUITION_REV    equ    31        v1.1
  39. GRAPHICS_REV    equ    31        v1.1
  40.  
  41. * Open the intuition library
  42.  
  43.     moveq    #100,d4            default error return code
  44.  
  45.     moveq    #INTUITION_REV,d0    version
  46.     lea    int_name(pc),a1
  47.     CALLEXEC OpenLibrary
  48.     tst.l    d0
  49.     beq    exit_false        if failed then quit
  50.     move.l    d0,_IntuitionBase    else save the pointer
  51.  
  52.     moveq    #GRAPHICS_REV,d0
  53.     lea    graf_name(pc),a1
  54.     CALLEXEC OpenLibrary
  55.     tst.l    d0
  56. ;    beq    exit_closeint        if failed then close Int, exit
  57.     move.l    d0,_GfxBase
  58.     lea    MyNewScreen(pc),a0
  59.     CALLINT    OpenScreen        open a screen
  60.     tst.l    d0
  61. ;    beq    exit_closeall        if failed the close both, exit
  62.     move.l    d0,MyScreen
  63.  
  64.     move.l MyScreen,a0
  65.     lea sc_BitMap(a0),a0
  66.     lea bm_Planes(a0),a0
  67.  
  68.     
  69.     move.l #RAWSCRN,(a0)
  70.     move.l #RAWSCRN+10240,4(a0)
  71.     move.l #RAWSCRN+10240*2,8(a0)
  72.     move.l #RAWSCRN+10240*3,12(a0)
  73.     move.l #RAWSCRN+10240*4,16(a0)
  74.     move.l #RAWSCRN+10240*5,20(a0)
  75.     move.l #RAWSCRN+10240*6,24(a0)
  76.     move.l #RAWSCRN+10240*7,28(a0)
  77.  
  78. * now initialise a NewWindow structure. This is normally easier to
  79. * do with dc.w/dc.l statement etc, but for comparison with the C
  80. * version we do it like this
  81.     lea    MyNewWindow(pc),a0    good place to start
  82.     move.w    #20,nw_LeftEdge(a0)
  83.     move.w    #20,nw_TopEdge(a0)
  84.     move.w    #300,nw_Width(a0)
  85.     move.w    #100,nw_Height(a0)
  86.     move.b    #0,nw_DetailPen(a0)
  87.     move.b    #1,nw_BlockPen(a0)
  88.     move.l    #window_title,nw_Title(a0)
  89. _temp    set    WINDOWCLOSE!SMART_REFRESH!ACTIVATE!WINDOWSIZING
  90.     move.l    #_temp!WINDOWDRAG!WINDOWDEPTH,nw_Flags(a0)
  91.     move.l    #CLOSEWINDOW,nw_IDCMPFlags(a0)
  92.     move.w    #CUSTOMSCREEN,nw_Type(a0)
  93.     clr.l    nw_FirstGadget(a0)
  94.     clr.l    nw_CheckMark(a0)
  95.     move.l    MyScreen(pc),nw_Screen(a0)
  96.     clr.l    nw_BitMap(a0)
  97.     move.w    #100,nw_MinWidth(a0)
  98.     move.w    #25,nw_MinHeight(a0)
  99.     move.w    #640,nw_MaxWidth(a0)
  100.     move.w    #200,nw_MaxHeight(a0)
  101.  
  102. * thats it set up, now open the window (a0=NewWindow already)
  103. ;    CALLINT    OpenWindow
  104. ;    tst.l    d0
  105. ;    beq    exit_closescr            if failed
  106. ;    move.l    d0,MyWindow            save it
  107. ;
  108. ;    move.l    d0,a1                window
  109. ;    move.l    wd_RPort(a1),a1            rastport
  110. ;    moveq    #20,d0                X
  111. ;    moveq    #20,d1                Y
  112. ;    CALLGRAF Move                move the cursor
  113. ;
  114. ;    move.l    MyWindow(pc),a0
  115. ;    move.l    wd_RPort(a0),a1            rastport
  116. ;    lea    hello_message(pc),a0
  117. ;    moveq    #11,d0
  118. ;    CALLGRAF Text                print something
  119. ;
  120. ;    move.l    MyWindow(pc),a0
  121. ;    move.l    wd_UserPort(a0),a0
  122. ;    move.b    MP_SIGBIT(a0),d1        (misprint in manual)
  123. ;    moveq    #0,d0
  124. ;    bset    d1,d0                do a shift
  125. ;    CALLEXEC Wait
  126.  
  127. ;    moveq    #0,d4                return code
  128.  
  129. * various exit routines that do tidying up, given a return code in d4
  130.  
  131. ;    move.l    MyWindow(pc),a0
  132. ;    CALLINT CloseWindow
  133.  
  134. ;exit_closescr
  135. ;    move.l    MyScreen(pc),a0
  136. ;    CALLINT CloseScreen
  137.  
  138. ;exit_closeall
  139. ;    move.l    _GfxBase(pc),a1
  140. ;    CALLEXEC CloseLibrary
  141.  
  142. ;exit_closeint
  143. ;    move.l    _IntuitionBase(pc),a1
  144. ;    CALLEXEC CloseLibrary
  145.  
  146. ;done:
  147. ;    bra done
  148.  
  149. SPECULAR EQU SP
  150. SPECMAP EQU SPM
  151. BUMPSPEC EQU BS
  152. BUMPPHONG EQU BP
  153. SHADOWMAP EQU SH
  154. SHADING EQU PH
  155. MOTIONBLUR EQU MB
  156. ANTIALIAS EQU AA
  157. DEPTHQUEUE EQU DQ
  158. DEPTHBALL EQU DB
  159. POLYGONDEPTH EQU PDQ
  160.  
  161.  
  162.  move.l #PALETTEBIT,a0
  163.  move.l #COPIEDPAL+4,a1
  164.  move.w #255,d0
  165.  
  166. copydown:
  167.  move.b 1(a0),(a1)
  168.  move.b 3(a0),4(a1)
  169.  move.b 5(a0),8(a1)
  170.  add.w #6,a0
  171.  add.w #12,a1
  172.  dbra d0,copydown
  173.  
  174.  move.w #256,COPIEDPAL
  175.  move.w #0,COPIEDPAL+2
  176. LOOKFORME:
  177.  move.l MyScreen,a0
  178.  lea sc_ViewPort(a0),a0
  179.  move.l #COPIEDPAL,a1
  180.  move.l _GfxBase,a6
  181.  jsr -$372(a6)
  182.  
  183.  move.l MyScreen,a4
  184.  move.w sc_MouseX(a4),d0
  185.  move.w sc_MouseY(a4),d1
  186.  move.w d0,OLDXM
  187.  move.w d1,OLDYM
  188.     
  189.  move.l 4.w,a6
  190.  move.l #doslibname,a1
  191.  moveq #0,d0
  192.  jsr -552(a6)
  193.  move.l d0,doslib
  194.  
  195.  move.l doslib,a6
  196.  move.l #OBJNAME,d1
  197.  move.l #1005,d2
  198.  jsr -30(a6)
  199.  move.l d0,ROTATEDPTS
  200.  
  201.  move.l doslib,a6
  202.  move.l d0,d1
  203.  move.l #POLYGONDATA,d2
  204.  move.l #30000,d3
  205.  jsr -42(a6)
  206.  
  207.  move.l doslib,a6
  208.  move.l ROTATEDPTS,d1
  209.  jsr -36(a6)
  210.  
  211. loop:
  212.  
  213.  move.w #0,temp
  214.  
  215.  move.l #POLYGONDATA,a3
  216.  move.w (a3)+,SORTIT
  217.  move.l a3,START_OF_OBJECT
  218.     
  219.  move.w (a3)+,num_points
  220.  move.w (a3)+,d6
  221.  move.w d6,num_frames
  222.  move.l a3,POINTER_TO_POINTERS
  223.  lea (a3,d6.w*4),a3
  224.  move.l a3,LinesPtr
  225.  moveq #0,d5
  226.  moveq #0,d2
  227.  
  228.  move.l POINTER_TO_POINTERS,a4
  229.  move.w (a4,d5.w*4),d2
  230.  add.l START_OF_OBJECT,d2
  231.  move.l d2,PtsPtr
  232.  move.w 2(a4,d5.w*4),d5
  233.  add.l START_OF_OBJECT,d5
  234.  move.l d5,PolyAngPtr
  235.  move.l d2,a3
  236.  move.w num_points,d5
  237.  
  238.  move.l (a3)+,OBJONOFF
  239.  
  240.  move.l a3,PointAngPtr
  241.  add.w d5,d5
  242.  move.w d5,d2
  243.  add.w d5,d5
  244.  add.w d5,d2
  245.  add.w d2,a3
  246.  move.l a3,PtsPtr
  247.  
  248.  move.l MyScreen,a4
  249.  move.w sc_MouseX(a4),d0
  250.  move.w sc_MouseY(a4),d1
  251.  
  252.  sub.w OLDXM,d0
  253.  sub.w OLDYM,d1
  254.  add.w d0,OLDXM
  255.  add.w d1,OLDYM
  256.  
  257.  btst #6,$bfe001
  258.  beq.s .SHIFTABOUT
  259.  
  260.  muls #8190,d0
  261.  divs #320,d0
  262.  add.w d0,YANG
  263.  and.w #8190,YANG
  264.  muls #8190,d1
  265.  divs #320,d1
  266.  and.w #8190,d1
  267.  add.w d1,XANG
  268.  and.w #8190,XANG
  269.  
  270. ; add.w #40,AANG
  271. ; add.w #70,BANG
  272. ; and.w #8191,AANG
  273. ; and.w #8191,BANG
  274.  
  275. ; add.w #60,CANG
  276. ; add.w #90,DANG
  277. ; and.w #8191,CANG
  278. ; and.w #8191,DANG
  279.  
  280.  
  281.  bra .ROTABOUT
  282. .SHIFTABOUT
  283.  
  284.   muls #8190,d0
  285.  divs #320,d0
  286.  add.w d0,BANG
  287.  and.w #8190,BANG
  288.  muls #8190,d1
  289.  divs #320,d1
  290.  and.w #8190,d1
  291.  add.w d1,AANG
  292.  and.w #8190,AANG
  293.  
  294.  
  295. .ROTABOUT
  296.  
  297.  move.w AANG,d1
  298.  move.w BANG,d3
  299. ; cmp.w #2,d6
  300. ; bne.s .notsecrot
  301. ; move.w CANG,d1
  302. ; move.w DANG,d3
  303. ;.notsecrot
  304.  move.l #SINETABLE,a1
  305.  move.w (a1,d1.w),XSIN    ;xsin
  306.  move.w (a1,d3.w),YSIN    ;ysin
  307.  
  308.  add.w #2048,a1
  309.  move.w (a1,d1.w),XCOS    ;xcos
  310.  move.w (a1,d3.w),YCOS    ;ycos
  311.  
  312.  move.w XANG,d1
  313.  move.w YANG,d3
  314. ; cmp.w #2,d6
  315. ; bne.s .notsecrot
  316. ; move.w CANG,d1
  317. ; move.w DANG,d3
  318. ;.notsecrot
  319.  move.l #SINETABLE,a1
  320.  move.w (a1,d1.w),XSIN2    ;xsin
  321.  move.w (a1,d3.w),YSIN2    ;ysin
  322.  
  323.  add.w #2048,a1
  324.  move.w (a1,d1.w),XCOS2    ;xcos
  325.  move.w (a1,d3.w),YCOS2    ;ycos
  326.  
  327.  
  328. ************************************************
  329. ************************************************
  330. ************************************************
  331. ************************************************
  332. ************************************************
  333. ************************************************
  334. ************************************************
  335. ************************************************
  336. ************************************************
  337. ************************************************
  338. ************************************************
  339. ************************************************
  340. ************************************************
  341. ************************************************
  342.  
  343. *SHADOW BUFFER CALCULATION
  344.  
  345.  
  346. ; First, calculate the normal brightnesses
  347. ; for points. NB: -1,-1,-1 = this point not used
  348. ; in gouraud shading.
  349.  
  350.  move.l #NORMBRIGHTS,a2
  351.  move.l PointAngPtr,a0
  352.  move.w num_points,d7
  353.  
  354.  move.l #NORMVECTS,a5
  355.  
  356.  subq #1,d7
  357.  
  358. CALCNORMBRIGHTS:
  359.  
  360.  move.w (a0)+,d0
  361.  move.w (a0)+,d1
  362.  move.w (a0)+,d2
  363.  
  364.  move.w #0,d6
  365.  
  366.  cmp.w #-1,d0
  367.  bne.s .notnot
  368.  cmp.w #-1,d1
  369.  bne.s .notnot
  370.  cmp.w #-1,d2
  371.  bne.s .notnot
  372.  
  373.  move.w #-1,x1
  374.  move.w #-1,y1
  375.  move.w #-1,z1
  376.  bra .dontbother
  377.  
  378. .notnot:
  379.  neg.w d1
  380.  
  381.  move.w d0,d3
  382.  move.w d2,d5
  383.  
  384.  muls YCOS,d0
  385.  muls YSIN,d2
  386.  sub.l d2,d0
  387.  add.l d0,d0
  388.  swap d0
  389. ; asr.l #6,d0    ; new x*512
  390.  
  391.  muls YSIN,d3
  392.  muls YCOS,d5
  393.  add.l d5,d3
  394.  add.l d3,d3
  395.  swap d3
  396.  move.w d3,d2    ; new z
  397.  
  398.  move.w d1,d4
  399.  move.w d2,d5
  400.  muls XCOS,d1
  401.  muls XSIN,d2
  402.  sub.l d2,d1
  403.  add.l d1,d1
  404.  swap d1
  405.  
  406.  muls XSIN,d4
  407.  muls XCOS,d5
  408.  add.l d5,d4
  409.  add.l d4,d4
  410.  swap d4
  411.  move.w d4,d2    ; new z
  412.  
  413.  
  414.  move.w d0,d3
  415.  move.w d2,d5
  416.  
  417.  muls YCOS2,d0
  418.  muls YSIN2,d2
  419.  sub.l d2,d0
  420.  add.l d0,d0
  421.  swap d0
  422.  
  423.  muls YSIN2,d3
  424.  muls YCOS2,d5
  425.  add.l d5,d3    
  426.  add.l d3,d3
  427.  swap d3
  428.  move.w d3,d2    ; new z
  429.  
  430.  move.w d1,d4
  431.  move.w d2,d5
  432.  muls XCOS2,d1
  433.  muls XSIN2,d2
  434.  sub.l d2,d1
  435.  add.l d1,d1
  436.  swap d1
  437.  
  438.  muls XSIN2,d4
  439.  muls XCOS2,d5
  440.  add.l d5,d4
  441.  add.l d4,d4
  442.  swap d4
  443.  
  444.  move.w d0,x1
  445.  move.w d1,y1
  446.  move.w d4,z1
  447.  
  448.  tst.w y1
  449.  blt.s .okpos
  450.  
  451.  move.w x1,d1    ; 0-1024
  452.  asr.w #4,d1    ; 0-64
  453.  move.w z1,d2    ; 0-1024
  454.  asr.w #4,d2    ; 0-64
  455.  
  456.  muls d1,d1
  457.  muls d2,d2
  458.  add.l d1,d2
  459.  jsr CALCSQROOT
  460.  tst.w d2
  461.  beq.s .okpos
  462.  
  463.  move.w d2,d3    ; 0-64
  464.  neg.w d3
  465.  add.w #127,d3    ; 64-127
  466.  
  467.  move.w z1,d4
  468.  muls d3,d4
  469.  divs d2,d4
  470.  
  471.  move.w x1,d0
  472.  muls d3,d0
  473.  divs d2,d0
  474.  
  475. ; asr.w #1,d4
  476. ; asr.w #1,d0
  477.  
  478. ; neg.w y3
  479.  
  480. .okpos
  481.  
  482.  asr.w #4,d4
  483.  add.w #128,d4
  484.  move.b d4,d6
  485.  lsl.w #8,d6
  486.  asr.w #4,d0
  487.  add.w #128,d0
  488.  move.b d0,d6
  489.  
  490. ; move.w d1,d6    ; new y 
  491. ;
  492. ; asr.w #4,d6
  493. ; add.w #20,d6
  494. ; 
  495. ; ble.s .okokok
  496. ; 
  497. ; moveq #0,d6
  498. ; 
  499. ;.okokok:
  500. ; add.w #$1c,d6
  501. ; cmp.w #1,d6
  502. ; bge.s .okokokok
  503. ; moveq #1,d6
  504. ;.okokokok:
  505.  
  506. ; add.w #64,d6
  507. ; 
  508. ; cmp.w #28,d6
  509. ; blt.s .okbig
  510. ; move.w #28,d6
  511. ;.okbig
  512.  
  513. .dontbother:
  514.  move.w x1,(a5)+
  515.  move.w y1,(a5)+
  516.  move.w z1,(a5)+
  517.  move.w d6,(a2)+
  518.  
  519.  dbra d7,CALCNORMBRIGHTS
  520.  
  521.  
  522. ; Next, calculate the point coords for
  523. ; the shadow buffer.
  524.  
  525.  move.l #SHADOWPTS,a2
  526.  move.l PtsPtr,a0
  527.  move.w num_points,d7
  528.  subq #1,d7
  529.  
  530. ROTPTLOPSHAD:
  531.  move.w (a0)+,d0
  532.  move.w d0,d3
  533.  move.w (a0)+,d1
  534.  move.w (a0)+,d2
  535.  move.w d2,d5
  536.  
  537.  muls YCOS,d0
  538.  muls YSIN,d2
  539.  sub.l d2,d0
  540.  add.l d0,d0
  541.  swap d0
  542. ; asr.l #6,d0    ; new x*512
  543.  
  544.  muls YSIN,d3
  545.  muls YCOS,d5
  546.  add.l d5,d3
  547.  add.l d3,d3
  548.  swap d3
  549.  move.w d3,d2    ; new z
  550.  
  551.  move.w d1,d4
  552.  move.w d2,d5
  553.  muls XCOS,d1
  554.  muls XSIN,d2
  555.  sub.l d2,d1
  556.  add.l d1,d1
  557.  swap d1
  558.  
  559.  muls XSIN,d4
  560.  muls XCOS,d5
  561.  add.l d5,d4
  562.  add.l d4,d4
  563.  swap d4
  564.  move.w d4,d2    ; new z
  565.   
  566.  move.w d0,d3
  567.  move.w d2,d5
  568.  
  569.  muls YCOS2,d0
  570.  muls YSIN2,d2
  571.  sub.l d2,d0
  572.  asr.l #6,d0    ; new x*512
  573.  
  574.  muls YSIN2,d3
  575.  muls YCOS2,d5
  576.  add.l d5,d3
  577.  add.l d3,d3
  578.  swap d3
  579.  move.w d3,d2    ; new z
  580.  
  581.  move.w d1,d4
  582.  move.w d2,d5
  583.  muls XCOS2,d1
  584.  muls XSIN2,d2
  585.  sub.l d2,d1
  586.  asr.l #6,d1    ; new y*512
  587.  
  588.  muls XSIN2,d4
  589.  muls XCOS2,d5
  590.  add.l d5,d4
  591.  add.l d4,d4
  592.  swap d4
  593.  move.w d4,d2    ; new z
  594.  
  595.  ext.l d2
  596.  
  597.  move.w XOFF,d5
  598.  ext.l d5
  599.  asl.l #8,d5
  600.  add.l d5,d5
  601.  add.l d5,d0
  602.  
  603.  move.l d0,(a2)+
  604.  move.l d1,(a2)+
  605.  move.w d2,(a2)+
  606.  
  607.  dbra d7,ROTPTLOPSHAD
  608.  
  609.  
  610.  
  611. ***************************************
  612. * Calculate viewer position for specularity..
  613.  
  614.  move.w #0,d0
  615.  move.w #0,d1
  616.  move.w #-1024,d2
  617.  
  618. ; move.w d0,d3
  619. ; move.w d2,d5
  620. ;
  621. ; muls YCOS,d0
  622. ; muls YSIN,d2
  623. ; sub.l d2,d0
  624. ; add.l d0,d0
  625. ; swap d0
  626. ; asr.l #6,d0    ; new x*512
  627. ; 
  628. ; muls YSIN,d3
  629. ; muls YCOS,d5
  630. ; add.l d5,d3
  631. ; add.l d3,d3
  632. ; swap d3
  633. ; move.w d3,d2    ; new z
  634. ;
  635. ; move.w d1,d4
  636. ; move.w d2,d5
  637. ; muls XCOS,d1
  638. ; muls XSIN,d2
  639. ; sub.l d2,d1
  640. ; add.l d1,d1
  641. ; swap d1
  642. ; 
  643. ; muls XSIN,d4
  644. ; muls XCOS,d5
  645. ; add.l d5,d4
  646. ; add.l d4,d4
  647. ; swap d4
  648. ; move.w d4,d2    ; new z
  649.  
  650.  move.w d0,d3
  651.  move.w d2,d5
  652.  
  653.  muls YCOS2,d0
  654.  muls YSIN2,d2
  655.  sub.l d2,d0
  656.  add.l d0,d0
  657.  swap d0
  658.  
  659.  muls YSIN2,d3
  660.  muls YCOS2,d5
  661.  add.l d5,d3    
  662.  add.l d3,d3
  663.  swap d3
  664.  move.w d3,d2    ; new z
  665.  
  666.  move.w d1,d4
  667.  move.w d2,d5
  668.  muls XCOS2,d1
  669.  muls XSIN2,d2
  670.  sub.l d2,d1
  671.  add.l d1,d1
  672.  swap d1
  673. ; asr.l #6,d1    ; new y*512
  674.  
  675.  muls XSIN2,d4
  676.  muls XCOS2,d5
  677.  add.l d5,d4
  678.  add.l d4,d4
  679.  swap d4
  680.  
  681.  move.w d0,x2b
  682.  move.w d1,y2b
  683.  move.w d4,z2b
  684.  
  685. ; Now the specular highlight efforts....
  686.  
  687.  move.l #SPECBRIGHTS,a2
  688.  move.l #NORMVECTS,a1
  689.  
  690.  move.l #SHADOWPTS,a5
  691.  
  692.  move.w num_points,d7
  693.  subq #1,d7
  694.  
  695. CALCSPECBRIGHTS:
  696.  
  697.  move.w (a1)+,x1
  698.  move.w (a1)+,y1
  699.  move.w (a1)+,z1
  700.  
  701.  move.w x2b,d0
  702.  move.l (a5)+,d1
  703.  asr.l #8,d1
  704.  asr.l #1,d1
  705.  sub.w d1,d0
  706.  move.w d0,x2
  707.  move.w y2b,d0
  708.  move.l (a5)+,d1
  709.  asr.l #8,d1
  710.  asr.l #1,d1
  711.  sub.w d1,d0
  712.  move.w d0,y2
  713.  move.w z2b,d0
  714.  sub.w (a5)+,d0
  715.  move.w d0,z2
  716.  
  717.  move.w #0,d6
  718.  
  719.  cmp.w #-1,x1
  720.  bne.s .notnot
  721.  cmp.w #-1,y1
  722.  bne.s .notnot
  723.  cmp.w #-1,z1
  724.  beq .dontbother
  725. .notnot: 
  726.  
  727.  move.w x2,d2
  728.  muls d2,d2
  729.  move.w y2,d1
  730.  muls d1,d1
  731.  add.l d1,d2
  732.  move.w z2,d1
  733.  muls d1,d1
  734.  add.l d1,d2
  735.  
  736.  jsr CALCSQROOT
  737.  
  738.  move.w d2,l2
  739.  
  740.  move.w y1,d0
  741.  muls z2,d0
  742.  move.w y2,d1
  743.  muls z1,d1
  744.  sub.l d1,d0    ; x4
  745.  
  746.  move.w z1,d1
  747.  muls x2,d1
  748.  move.w z2,d2
  749.  muls x1,d2
  750.  sub.l d2,d1    ; y4
  751.  
  752.  move.w x1,d2
  753.  muls y2,d2
  754.  move.w x2,d3
  755.  muls y1,d3
  756.  sub.l d3,d2    ; z4
  757.  
  758.  asr.l #8,d0
  759.  asr.l #8,d1
  760.  asr.l #8,d2
  761.  asr.l #2,d0
  762.  asr.l #2,d1
  763.  asr.l #2,d2
  764.  
  765.  move.w x1,d3
  766.  muls d1,d3
  767.  move.w y1,d4
  768.  muls d0,d4
  769.  sub.l d4,d3
  770.  asr.l #8,d3
  771.  asr.l #1,d3
  772.  add.w z2,d3
  773.  
  774.  muls #1024,d3
  775.  divs l2,d3
  776.  
  777.  move.w d3,z3
  778.  
  779.  move.w y1,d3
  780.  muls d2,d3
  781.  move.w z1,d4
  782.  muls d1,d4
  783.  sub.l d4,d3
  784.  asr.l #8,d3
  785.  asr.l #1,d3
  786.  add.w x2,d3
  787.  muls #1024,d3
  788.  divs l2,d3
  789.  
  790.  move.w d3,x3
  791.  
  792.  move.w z1,d3
  793.  muls d0,d3
  794.  move.w x1,d4
  795.  muls d2,d4
  796.  sub.l d4,d3
  797.  asr.l #8,d3
  798.  asr.l #1,d3
  799.  add.w y2,d3
  800.  muls #1024,d3
  801.  divs l2,d3
  802.  
  803.  move.w d3,y3
  804.  
  805.  move.w z3,d3
  806.  asr.w #4,d3
  807.  add.w #128,d3
  808.  
  809.  move.b d3,d6
  810.  lsl.w #8,d6
  811.  
  812.  move.w x3,d3
  813.  asr.w #4,d3
  814.  add.w #128,d3
  815.  move.b d3,d6
  816.   
  817.  tst.w y3
  818.  blt.s .okpos
  819.  
  820.  move.w x3,d1
  821.  asr.w #4,d1
  822.  move.w z3,d2
  823.  asr.w #4,d2
  824.  
  825.  muls d1,d1
  826.  muls d2,d2
  827.  add.l d1,d2
  828.  jsr CALCSQROOT
  829.  tst.w d2
  830.  beq.s .okpos
  831.  
  832.  move.w d2,d3
  833.  neg.w d3
  834.  add.w #127,d3
  835.  
  836.  move.w z3,d4
  837.  muls d3,d4
  838.  divs d2,d4
  839.  asr.w #4,d4
  840.  add.w #128,d4
  841.  move.b d4,d6
  842.  lsl.w #8,d6
  843.  
  844.  move.w x3,d4
  845.  muls d3,d4
  846.  divs d2,d4
  847.  asr.w #4,d4
  848.  add.w #128,d4
  849.  move.b d4,d6
  850.  
  851. ; neg.w y3
  852.  
  853. .okpos
  854.   
  855. ; add.w y2,d3
  856. ;
  857. ; move.w d3,d6
  858. ;
  859. ; asr.w #4,d6
  860. ; 
  861. ; add.w #30,d6
  862. ; 
  863. ; ble.s .okokok
  864. ; 
  865. ; moveq #0,d6
  866. ; 
  867. ;.okokok:
  868. ; add.w #$1c,d6
  869. ;
  870. ; cmp.w #1,d6
  871. ; bge.s .okokokok
  872. ; moveq #1,d6
  873. ;.okokokok:
  874.  
  875. ; 
  876. ; cmp.w #28,d6
  877. ; blt.s .okbig
  878. ; move.w #28,d6
  879. ;.okbig
  880.  
  881. .dontbother:
  882.  move.w d6,(a2)+
  883.  move.w y3,(a2)+
  884.  
  885.  dbra d7,CALCSPECBRIGHTS
  886.  
  887.  
  888.  
  889.  
  890. * NOW THE POINTS FOR ON-SCREENNESS
  891.  
  892.  move.l #ROTATEDPTS,a2
  893.  move.l PtsPtr,a0
  894.  move.w num_points,d7
  895.  subq #1,d7
  896.  
  897. ROTPTLOP:
  898.  
  899.  move.w (a0)+,d0
  900.  move.w d0,d3
  901.  move.w (a0)+,d1
  902.  move.w (a0)+,d2
  903.  move.w d2,d5
  904.  
  905.  
  906.  
  907.  muls YCOS,d0
  908.  muls YSIN,d2
  909.  sub.l d2,d0
  910.  asr.l #6,d0    ; new x*512
  911.  
  912.  muls YSIN,d3
  913.  muls YCOS,d5
  914.  add.l d5,d3
  915.  add.l d3,d3
  916.  swap d3
  917.  move.w d3,d2    ; new z
  918.  
  919.  move.w d1,d4
  920.  move.w d2,d5
  921.  muls XCOS,d1
  922.  muls XSIN,d2
  923.  sub.l d2,d1
  924.  asr.l #6,d1    ; new y*512
  925.  
  926.  muls XSIN,d4
  927.  muls XCOS,d5
  928.  add.l d5,d4
  929.  add.l d4,d4
  930.  swap d4
  931.  move.w d4,d2    ; new z
  932.  
  933.  ext.l d2
  934.  
  935.  move.w XOFF,d5
  936.  ext.l d5
  937.  asl.l #8,d5
  938.  add.l d5,d5
  939.  add.l d5,d0
  940.  
  941.  move.l d0,(a2)+
  942.  move.l d1,(a2)+
  943.  move.w d2,(a2)+
  944.  
  945.  dbra d7,ROTPTLOP
  946.  
  947. ; Now convert the rotated points to the screen:
  948.  
  949.  move.l #ROTATEDPTS,a0
  950.  move.l #ONSCREENPTS,a2
  951.  move.w num_points,d7
  952.  subq #1,d7
  953. CONVERTTOSCREEN:
  954.  move.l (a0)+,d0
  955.  move.l (a0)+,d1
  956.  move.w (a0)+,d2
  957. ; asr.w #1,d2
  958.  
  959.  add.w ZOFF,d2
  960.  ext.l d2
  961.  
  962.  move.l d0,d3
  963.  asr.l #1,d3
  964.  add.l d3,d0 
  965.  move.l d1,d3
  966.  asr.l #1,d3
  967.  add.l d3,d1 
  968.  
  969.  divs d2,d0
  970.  divs d2,d1
  971.  add.w #160*4,d0
  972.  add.w #128*4,d1
  973.  move.w d0,(a2)+
  974.  move.w d1,(a2)+
  975.  dbra d7,CONVERTTOSCREEN
  976.  
  977.  move.w #254,HIGHPOLY
  978.  
  979.  move.l LinesPtr,a1
  980.  move.l #PartBuffer,a0
  981.  move.l a0,a2
  982.  move.w #15,d0
  983. clrpartbuffSHAD:
  984.  move.l #$80000001,(a2)+
  985.  move.l #$80000001,(a2)+
  986.  move.l #$80000001,(a2)+
  987.  move.l #$80000001,(a2)+
  988.  dbra d0,clrpartbuffSHAD
  989.  
  990.  move.l #SHADOWPTS,a2
  991.  move.l OBJONOFF,d5
  992.  
  993.  move.w #0,d4
  994.  tst.w SORTIT
  995.  bne.s PutInPartsSHAD
  996.  
  997.  
  998. putinunsortedSHAD:
  999.  move.w (a1)+,d7
  1000.  blt doneallpartsSHAD
  1001.  lsr.l #1,d5
  1002.  bcs.s .yeson
  1003.  addq #2,a1
  1004.  bra putinunsortedSHAD
  1005. .yeson:
  1006.  
  1007.  move.w (a1)+,d6
  1008.  move.l #0,(a0)+
  1009.  move.w d7,(a0)+
  1010.  move.w d4,(a0)+
  1011.  addq #1,d4
  1012.  bra putinunsortedSHAD
  1013.  
  1014. PutInPartsSHAD
  1015.  move.w (a1)+,d7
  1016.  blt doneallpartsSHAD
  1017.  
  1018.  lsr.l #1,d5
  1019.  bcs.s .yeson
  1020.  addq #2,a1
  1021.  bra PutInPartsSHAD
  1022. .yeson:
  1023.  
  1024.  move.w (a1)+,d6
  1025.  move.l 4(a2,d6.w),d0
  1026.  add.l #200000,d0
  1027.  
  1028.  move.l #PartBuffer-8,a0
  1029.  
  1030. stillfrontSHAD
  1031.  addq #8,a0
  1032.  cmp.l (a0),d0
  1033.  blt stillfrontSHAD
  1034.  move.l #endparttab-8,a5
  1035. domoreshiftSHAD:
  1036.  move.l -8(a5),(a5)
  1037.  move.l -4(a5),4(a5)
  1038.  subq #8,a5
  1039.  cmp.l a0,a5
  1040.  bgt.s domoreshiftSHAD
  1041.  
  1042.  move.l d0,(a0)
  1043.  move.w d7,4(a0)
  1044.  move.w d4,6(a0)
  1045.  addq #1,d4
  1046.  bra PutInPartsSHAD
  1047.  
  1048. doneallpartsSHAD:
  1049.  
  1050.  move.l #PartBuffer,a0
  1051.  
  1052.  ifne SHADOWMAP
  1053.  
  1054. PartLoopSHAD
  1055.  move.l (a0)+,d7
  1056.  blt nomorepartsSHAD
  1057.  
  1058.  move.l #SAVEHIGHS,a2
  1059.  move.w 2(a0),d0
  1060.  move.w HIGHPOLY,(a2,d0.w*2)
  1061.  
  1062.  moveq #0,d0
  1063.  move.w (a0),d0
  1064.  addq #4,a0
  1065.  add.l START_OF_OBJECT,d0
  1066.  move.l d0,a1
  1067.  
  1068. polylooSHAD:
  1069.  
  1070.  tst.w (a1)
  1071.  blt.s nomorepolysSHAD
  1072.  movem.l a0/a1/d7,-(a7)
  1073.  bsr doaSHADEpoly
  1074.  movem.l (a7)+,a0/a1/d7
  1075.  
  1076.  move.w (a1),d0
  1077.  lea 18(a1,d0.w*4),a1
  1078.  
  1079.  bra.s polylooSHAD
  1080. nomorepolysSHAD:
  1081.  sub.w #1,HIGHPOLY
  1082.  bra PartLoopSHAD
  1083. nomorepartsSHAD:
  1084.  
  1085.  endc
  1086.  
  1087. *******************************************
  1088. * Now the on-screen bit...
  1089. *******************************************
  1090.  
  1091.  move.l LinesPtr,a1
  1092.  move.l #PartBuffer,a0
  1093.  move.l a0,a2
  1094.  move.w #15,d0
  1095. clrpartbuff:
  1096.  move.l #$80000001,(a2)+
  1097.  move.l #$80000001,(a2)+
  1098.  move.l #$80000001,(a2)+
  1099.  move.l #$80000001,(a2)+
  1100.  dbra d0,clrpartbuff
  1101.  
  1102.  move.l #ROTATEDPTS,a2
  1103.  move.l OBJONOFF,d5
  1104.  
  1105.  moveq #0,d4
  1106.  
  1107.  tst.w SORTIT
  1108.  bne.s PutInParts
  1109.  
  1110. putinunsorted:
  1111.  move.w (a1)+,d7
  1112.  blt doneallparts
  1113.  lsr.l #1,d5
  1114.  bcs.s .yeson
  1115.  addq #2,a1
  1116.  bra putinunsorted
  1117. .yeson:
  1118.  
  1119.  move.w (a1)+,d6
  1120.  move.l #0,(a0)+
  1121.  move.w d7,(a0)+
  1122.  move.w d4,(a0)+
  1123.  
  1124.  addq #1,d4
  1125.  bra putinunsorted
  1126.  
  1127. PutInParts
  1128.  move.w (a1)+,d7
  1129.  blt doneallparts
  1130.  
  1131.  lsr.l #1,d5
  1132.  bcs.s .yeson
  1133.  addq #2,a1
  1134.  bra PutInParts
  1135. .yeson:
  1136.  
  1137.  move.w (a1)+,d6
  1138.  move.l (a2,d6.w),d0
  1139.  asr.l #8,d0
  1140.  asr.l #2,d0
  1141.  muls d0,d0
  1142.  move.l 4(a2,d6.w),d2
  1143.  asr.l #8,d2
  1144.  asr.l #2,d2
  1145.  muls d2,d2
  1146.  add.l d2,d0 
  1147.  move.w 8(a2,d6.w),d2
  1148.  add.w #1024,d2
  1149.  muls d2,d2
  1150.  add.l d2,d0
  1151.  
  1152.  move.l #PartBuffer-8,a0
  1153.  
  1154. stillfront
  1155.  addq #8,a0
  1156.  cmp.l (a0),d0
  1157.  blt stillfront
  1158.  move.l #endparttab-8,a5
  1159. domoreshift:
  1160.  move.l -8(a5),(a5)
  1161.  move.l -4(a5),4(a5)
  1162.  subq #8,a5
  1163.  cmp.l a0,a5
  1164.  bgt.s domoreshift
  1165.  
  1166.  move.l d0,(a0)
  1167.  move.w d7,4(a0)
  1168.  move.w d4,6(a0)
  1169.  addq #1,d4
  1170.  bra PutInParts
  1171.  
  1172. doneallparts:
  1173.  
  1174.  move.l #PartBuffer,a0
  1175.  
  1176. PartLoop
  1177.  move.l (a0)+,d7
  1178.  blt nomoreparts
  1179.  
  1180.  move.l #SAVEHIGHS,a2
  1181.  move.w 2(a0),d0
  1182.  move.w (a2,d0.w*2),HIGHPOLY
  1183.  
  1184.  moveq #0,d0
  1185.  move.w (a0),d0
  1186.  addq #4,a0
  1187.  add.l START_OF_OBJECT,d0
  1188.  move.l d0,a1
  1189.  
  1190. polyloo:
  1191.  
  1192.  tst.w (a1)
  1193.  blt.s nomorepolys
  1194.  movem.l a0/a1/d7,-(a7)
  1195.  bsr doapoly
  1196.  movem.l (a7)+,a0/a1/d7
  1197.  
  1198.  move.w (a1),d0
  1199.  lea 18(a1,d0.w*4),a1
  1200.  
  1201.  bra.s polyloo
  1202. nomorepolys:
  1203.  sub.w #1,HIGHPOLY
  1204.  bra PartLoop
  1205. nomoreparts:
  1206.  
  1207. NOPOLYS:
  1208.  
  1209.  
  1210.  
  1211. ********************************************
  1212.  
  1213.  ifne DEPTHBALL
  1214.  
  1215.  
  1216.  move.l #BALLXOFF,a5
  1217.  move.l #BALLXANGPOS,a6
  1218.  
  1219. BALLLOOP
  1220.  
  1221.  move.l FASTBUFFER,a0
  1222.  move.l #BALL,a1
  1223.  move.l #DEPTHBUFFER,a2
  1224.  
  1225.  add.l #320*(128-32),a0
  1226.  add.l #320*4*(128-32),a2
  1227.  
  1228.  add.l #(160-32),a0
  1229.  add.l #(160-32)*4,a2
  1230.  
  1231.  move.w (a5),d0
  1232.  
  1233.  cmp.w #999,d0
  1234.  beq NOMOREBALLS
  1235.  
  1236.  add.w d0,a0
  1237.  lea (a2,d0.w*4),a2
  1238.  
  1239.  move.w 2(a5),d0
  1240.  muls #320,d0
  1241.  add.l d0,a0
  1242.  lea (a2,d0.l*4),a2
  1243.  
  1244.  move.l #$7ffffff,d6
  1245.  
  1246.  move.l #GOURPAL,a3
  1247.  
  1248.  move.w 4(a5),d7
  1249.  
  1250.  move.w #63,d0
  1251. .balldown
  1252.  move.w #63,d1
  1253. .ballacross
  1254.  
  1255.  move.w d7,d4
  1256.  moveq #0,d2
  1257.  move.b (a1)+,d2
  1258.  asl.w #2,d2
  1259.  beq.s .nopixel
  1260.  sub.w d2,d4
  1261.  move.l (a2)+,d3
  1262.  swap d3
  1263.  sub.w d4,d3
  1264.  ble.s .noplot
  1265.  
  1266.  asr.w #1,d3
  1267.  asr.w #1,d2
  1268.  
  1269.  cmp.w d2,d3
  1270.  blt.s .okthick
  1271.  move.w d2,d3
  1272. .okthick:
  1273.  
  1274.  cmp.w #31,d3
  1275.  ble.s .okv
  1276.  move.w #31,d3
  1277. .okv:
  1278.  
  1279.  asl.w #8,d3
  1280.  
  1281.  move.b (a0),d3
  1282.  
  1283.  move.b (a3,d3.w),(a0)
  1284. ; move.b #15,(a0)
  1285.  
  1286. .noplot
  1287.  addq #1,a0
  1288.  dbra d1,.ballacross
  1289.  
  1290.  add.l #(320-64),a0
  1291.  add.l #(320-64)*4,a2
  1292.  
  1293.  dbra d0,.balldown
  1294.  
  1295.  bra DONEBALL
  1296.  
  1297. .nopixel:
  1298.  addq #4,a2
  1299.  addq #1,a0
  1300.  dbra d1,.ballacross
  1301.  
  1302.  add.l #(320-64),a0
  1303.  add.l #(320-64)*4,a2
  1304.  
  1305.  dbra d0,.balldown
  1306.  
  1307.  
  1308. DONEBALL:
  1309.  
  1310.  move.w 2(a6),d0
  1311.  move.l #SINETABLE,a0
  1312.  move.w (a0,d0.w),d1
  1313.  add.w (a6)+,d0
  1314.  and.w #8190,d0
  1315.  move.w d0,(a6)+
  1316.  ext.l d1
  1317.  asl.l #7,d1
  1318.  swap d1
  1319.  move.w d1,(a5)+
  1320.  
  1321.  move.w 2(a6),d0
  1322.  move.l #SINETABLE,a0
  1323.  move.w (a0,d0.w),d1
  1324.  add.w (a6)+,d0
  1325.  and.w #8190,d0
  1326.  move.w d0,(a6)+
  1327.  ext.l d1
  1328.  asl.l #6,d1
  1329.  swap d1
  1330.  move.w d1,(a5)+
  1331.  
  1332.  move.w 2(a6),d0
  1333.  move.l #SINETABLE,a0
  1334.  move.w (a0,d0.w),d1
  1335.  add.w (a6)+,d0
  1336.  and.w #8190,d0
  1337.  move.w d0,(a6)+
  1338.  ext.l d1
  1339.  asl.l #1,d1
  1340.  asl.l #8,d1
  1341.  swap d1
  1342.  move.w d1,(a5)+
  1343.  
  1344.  
  1345.  bra BALLLOOP
  1346.  
  1347. NOMOREBALLS:
  1348.  
  1349.  endc
  1350.  
  1351.  ifne POLYGONDEPTH!DEPTHBALL
  1352.  
  1353.  move.l #DEPTHBUFFER+280*256*4,a0
  1354.  move.l #$7ffffff,d0
  1355.  move.l d0,d1
  1356.  move.l d0,d2
  1357.  move.l d0,d3
  1358.  move.l d0,d4
  1359.  move.l d0,d5
  1360.  move.l d0,d6
  1361.  move.l d0,a1
  1362.  
  1363.  move.w #(320*176)/8,d7
  1364.  
  1365. .clrbuff:
  1366.  movem.l  d0-d6/a1,-(a0)
  1367.  dbra d7,.clrbuff
  1368.  
  1369.  
  1370.  endc
  1371.  
  1372.  
  1373. ********************************************
  1374.  
  1375. ; btst #6,$bfe001
  1376. ; beq.s .SHOWSHADOW
  1377.  
  1378.  ifne MOTIONBLUR
  1379.  
  1380.  move.l FASTBUFFER,d0
  1381.  cmp.l #fasty,d0
  1382.  bne SHOWNSCRN
  1383.  
  1384.  move.l #fasty,a0
  1385.  move.l #fasty2,a1
  1386.  add.l #40*320+64,a0
  1387.  add.l #40*320+64,a1
  1388.  move.l #BLUR,a2
  1389.  move.w #175,d0
  1390.  moveq #0,d6
  1391. .blurchunk:
  1392.  move.w #(192/4)-1,d1
  1393. .blurline:
  1394.  
  1395.  move.l (a0),d2
  1396.  move.l d2,d4
  1397.  swap d4
  1398.  move.l (a1)+,d3
  1399.  move.l d3,d5
  1400.  swap d5
  1401.   
  1402.  lsr.w #8,d5
  1403.  move.b d5,d4
  1404.  move.w d4,d6
  1405.  move.b (a2,d6.l),d7
  1406.  
  1407.  lsl.l #8,d7
  1408.  lsl.l #8,d2
  1409.  lsl.l #8,d3
  1410.  move.l d2,d4
  1411.  move.l d3,d5
  1412.  swap d4
  1413.  swap d5
  1414.  lsr.w #8,d5
  1415.  move.b d5,d4
  1416.  move.w d4,d6
  1417.  move.b (a2,d6.l),d7
  1418.  
  1419.  lsl.l #8,d7
  1420.  lsl.l #8,d2
  1421.  lsl.l #8,d3
  1422.  move.l d2,d4
  1423.  move.l d3,d5
  1424.  swap d4
  1425.  swap d5
  1426.  lsr.l #8,d5
  1427.  move.b d5,d4
  1428.  move.w d4,d6
  1429.  move.b (a2,d6.l),d7
  1430.  
  1431.  lsl.l #8,d7
  1432.  lsl.l #8,d2
  1433.  lsl.l #8,d3
  1434.  move.l d2,d4
  1435.  move.l d3,d5
  1436.  swap d4
  1437.  swap d5
  1438.  lsr.l #8,d5
  1439.  move.b d5,d4
  1440.  move.w d4,d6
  1441.  move.b (a2,d6.l),d7
  1442.  
  1443.  move.l d7,(a0)+
  1444.  
  1445.  dbra d1,.blurline
  1446.  
  1447.  add.w #(320-192),a1
  1448.  add.w #(320-192),a0
  1449.  dbra d0,.blurchunk
  1450.  
  1451.  endc
  1452.  
  1453. FASF:
  1454.  
  1455.  ifne ANTIALIAS
  1456.  
  1457.  
  1458.  move.l #fasty,a0
  1459.  move.l #fasty,a1
  1460.  add.l #40*320+64,a0
  1461.  add.l #41*320+65,a1
  1462.  move.l #BLUR,a2
  1463.  move.w #175,d0
  1464.  moveq #0,d6
  1465. .blurchunk:
  1466.  move.w #(192/4)-1,d1
  1467. .blurline:
  1468.  
  1469.  move.l (a0),d2
  1470.  move.l d2,d4
  1471.  swap d4
  1472.  move.l (a1)+,d3
  1473.  move.l d3,d5
  1474.  swap d5
  1475.   
  1476.  lsr.w #8,d5
  1477.  move.b d5,d4
  1478.  move.w d4,d6
  1479.  move.b (a2,d6.l),d7
  1480.  
  1481.  lsl.l #8,d7
  1482.  lsl.l #8,d2
  1483.  lsl.l #8,d3
  1484.  move.l d2,d4
  1485.  move.l d3,d5
  1486.  swap d4
  1487.  swap d5
  1488.  lsr.w #8,d5
  1489.  move.b d5,d4
  1490.  move.w d4,d6
  1491.  move.b (a2,d6.l),d7
  1492.  
  1493.  lsl.l #8,d7
  1494.  lsl.l #8,d2
  1495.  lsl.l #8,d3
  1496.  move.l d2,d4
  1497.  move.l d3,d5
  1498.  swap d4
  1499.  swap d5
  1500.  lsr.l #8,d5
  1501.  move.b d5,d4
  1502.  move.w d4,d6
  1503.  move.b (a2,d6.l),d7
  1504.  
  1505.  lsl.l #8,d7
  1506.  lsl.l #8,d2
  1507.  lsl.l #8,d3
  1508.  move.l d2,d4
  1509.  move.l d3,d5
  1510.  swap d4
  1511.  swap d5
  1512.  lsr.l #8,d5
  1513.  move.b d5,d4
  1514.  move.w d4,d6
  1515.  move.b (a2,d6.l),d7
  1516.  
  1517.  move.l d7,(a0)+
  1518.  
  1519.  dbra d1,.blurline
  1520.  
  1521.  add.w #(320-192),a1
  1522.  add.w #(320-192),a0
  1523.  dbra d0,.blurchunk
  1524.  
  1525.  endc
  1526.  
  1527.  
  1528.  ifeq LARGESCREEN
  1529.  
  1530.  move.l FASTBUFFER,a0 
  1531.  add.l #40*320+64,a0
  1532.  move.l #RAWSCRN,a1
  1533.  add.l #40*40+8,a1
  1534.  move.l #(24)-1,d0
  1535.  move.l #175,d1
  1536.  move.w #128,d2
  1537.  move.w #16,d3
  1538.  moveq #0,d4
  1539.  moveq #0,d5
  1540.  jsr CHUNKYTOPLANAR 
  1541.  
  1542.  endc
  1543.  
  1544.  ifne LARGESCREEN
  1545.  
  1546.  move.l FASTBUFFER,a0 
  1547.  move.l #RAWSCRN,a1
  1548.  move.l #39,d0
  1549.  move.l #255,d1
  1550.  move.w #0,d2
  1551.  move.w #0,d3
  1552.  moveq #0,d4
  1553.  moveq #0,d5
  1554.  jsr CHUNKYTOPLANAR 
  1555.  
  1556.  endc
  1557.  
  1558.  
  1559.  bra SHOWNSCRN
  1560.  
  1561. .SHOWSHADOW
  1562.  
  1563.  move.l #SHADOWBUFFER,a0
  1564.  add.l #40*256,a0
  1565.  move.l #RAWSCRN,a1
  1566.  add.l #40*40,a1
  1567.  move.l #(256/8)-1,d0
  1568.  move.l #175,d1
  1569.  move.w #0,d2
  1570.  move.w #8,d3
  1571.  moveq #0,d4
  1572.  moveq #0,d5
  1573.  jsr CHUNKYTOPLANAR 
  1574.  
  1575. SHOWNSCRN:
  1576.  
  1577.  ifne MOTIONBLUR
  1578.  
  1579.  move.l #fasty2,d1
  1580.  move.l FASTBUFFER,d0
  1581.  cmp.l #fasty,d0
  1582.  beq.s .ok2
  1583.  move.l #fasty,d1
  1584. .ok2:
  1585.  move.l d1,FASTBUFFER 
  1586.  
  1587.  endc
  1588.  
  1589.  move.l FASTBUFFER,a0
  1590.  move.l #NEBBIE,a1
  1591.  ifeq LARGESCREEN
  1592.  add.l #40*320+64,a0
  1593.  endc
  1594.  
  1595.  move.l #BLUR,a2
  1596.  ifeq LARGESCREEN
  1597.  moveq #0,d6
  1598.  move.w #175,d0
  1599.  endc
  1600.  ifne LARGESCREEN
  1601.  move.l #$e5e5e5e5,d6
  1602.  move.w #511,d0
  1603.  endc
  1604.  
  1605. clrchunk:
  1606.  
  1607.  ifeq LARGESCREEN
  1608.  REPT 192/4
  1609.  move.l (a1)+,(a0)+
  1610.  endr
  1611.  add.w #(320-192),a0
  1612.  endc
  1613.  
  1614.  ifne LARGESCREEN
  1615.  REPT 160/4
  1616.  move.l d6,(a0)+
  1617.  endr
  1618.  endc
  1619.  
  1620.  dbra d0,clrchunk
  1621.  
  1622.  move.l #SHADOWBUFFER,a0
  1623.  move.l #-1,d1
  1624.  move.l #-1,d2
  1625.  move.w #15,d0
  1626. ;clrshad:
  1627. ; move.w #15,d5
  1628. ;innner
  1629. ; move.l d2,(a0)+
  1630. ; move.l d2,(a0)+
  1631. ; move.l d2,(a0)+
  1632. ; move.l d2,(a0)+
  1633. ; move.l d1,(a0)+
  1634. ; move.l d1,(a0)+
  1635. ; move.l d1,(a0)+
  1636. ; move.l d1,(a0)+
  1637. ; move.l d2,(a0)+
  1638. ; move.l d2,(a0)+
  1639. ; move.l d2,(a0)+
  1640. ; move.l d2,(a0)+
  1641. ; move.l d1,(a0)+
  1642. ; move.l d1,(a0)+
  1643. ; move.l d1,(a0)+
  1644. ; move.l d1,(a0)+
  1645. ; move.l d2,(a0)+
  1646. ; move.l d2,(a0)+
  1647. ; move.l d2,(a0)+
  1648. ; move.l d2,(a0)+
  1649. ; move.l d1,(a0)+
  1650. ; move.l d1,(a0)+
  1651. ; move.l d1,(a0)+
  1652. ; move.l d1,(a0)+
  1653. ; move.l d2,(a0)+
  1654. ; move.l d2,(a0)+
  1655. ; move.l d2,(a0)+
  1656. ; move.l d2,(a0)+
  1657. ; move.l d1,(a0)+
  1658. ; move.l d1,(a0)+
  1659. ; move.l d1,(a0)+
  1660. ; move.l d1,(a0)+
  1661. ; move.l d2,(a0)+
  1662. ; move.l d2,(a0)+
  1663. ; move.l d2,(a0)+
  1664. ; move.l d2,(a0)+
  1665. ; move.l d1,(a0)+
  1666. ; move.l d1,(a0)+
  1667. ; move.l d1,(a0)+
  1668. ; move.l d1,(a0)+
  1669. ; move.l d2,(a0)+
  1670. ; move.l d2,(a0)+
  1671. ; move.l d2,(a0)+
  1672. ; move.l d2,(a0)+
  1673. ; move.l d1,(a0)+
  1674. ; move.l d1,(a0)+
  1675. ; move.l d1,(a0)+
  1676. ; move.l d1,(a0)+
  1677. ; move.l d2,(a0)+
  1678. ; move.l d2,(a0)+
  1679. ; move.l d2,(a0)+
  1680. ; move.l d2,(a0)+
  1681. ; move.l d1,(a0)+
  1682. ; move.l d1,(a0)+
  1683. ; move.l d1,(a0)+
  1684. ; move.l d1,(a0)+
  1685. ; move.l d2,(a0)+
  1686. ; move.l d2,(a0)+
  1687. ; move.l d2,(a0)+
  1688. ; move.l d2,(a0)+
  1689. ; move.l d1,(a0)+
  1690. ; move.l d1,(a0)+
  1691. ; move.l d1,(a0)+
  1692. ; move.l d1,(a0)+
  1693. ; dbra d5,innner
  1694. ; exg d1,d2
  1695. ;
  1696. ; dbra d0,clrshad
  1697.  
  1698.  
  1699.  
  1700.     btst #7,$bfe001
  1701.     beq.s exit_closescr
  1702.  
  1703.  
  1704.     add.l #$8000,lmxoff
  1705.     cmp.l #40*65536,lmxoff
  1706.     blt.s .oksm
  1707.     sub.l #40*65536,lmxoff    
  1708. .oksm
  1709.  
  1710.     bra loop
  1711.     
  1712. lmxoff: dc.l 0
  1713.  
  1714. exit_closescr
  1715.     move.l    MyScreen(pc),a0
  1716.     CALLINT CloseScreen
  1717.  
  1718. exit_closeall
  1719.     move.l    _GfxBase(pc),a1
  1720.     CALLEXEC CloseLibrary
  1721.  
  1722. exit_closeint
  1723.     move.l    _IntuitionBase(pc),a1
  1724.     CALLEXEC CloseLibrary
  1725.  
  1726. exit_false
  1727.     move.l    #0,d0                return code
  1728.     rts
  1729.  
  1730. TESTTAB: ds.w 30
  1731.  
  1732. ************************************************
  1733. * SUBROUTINES HERE. ****************************
  1734. ************************************************
  1735.  
  1736.  
  1737. **********************************************************
  1738.  
  1739. * the definition of the screen - note that in assembler you
  1740. * MUST get the sizes of these fields correct, by consulting either
  1741. * the RKM or the header files
  1742.  
  1743.  
  1744. MyNewScreen    dc.w    0,0        left, top
  1745.         dc.w    320,256        width, height
  1746.         dc.w    8        depth
  1747.         dc.b    0,1        pens
  1748.         dc.w    0        viewmodes
  1749.         dc.w    CUSTOMSCREEN    type
  1750.         dc.l    MyFont        font
  1751.         dc.l    screen_title    title
  1752.         dc.l    0        gadgets
  1753.         dc.l    0        bitmap
  1754.  
  1755. * my font definition
  1756. MyFont    dc.l    font_name
  1757.     dc.w    TOPAZ_SIXTY
  1758.     dc.b    FS_NORMAL
  1759.     dc.b    FPF_ROMFONT
  1760.  
  1761. * the variables
  1762. _IntuitionBase    dc.l    0        Intuition lib pointer
  1763. _GfxBase    dc.l    0        graphics lib pointer
  1764. MyScreen        dc.l    0
  1765. MyWindow        dc.l    0
  1766. MyNewWindow    ds.b    nw_SIZE        a buffer
  1767.  
  1768.  
  1769. * some strings
  1770. int_name    INTNAME
  1771. graf_name    GRAFNAME
  1772. hello_message    dc.b    'Hello World'
  1773.  
  1774. * these are C strings, so have to be null terminated
  1775. screen_title    dc.b    'My Own Screen',0
  1776. font_name    dc.b    'topaz.font',0
  1777. window_title    dc.b    'A Simple Window',0
  1778.  
  1779.  even
  1780.  
  1781.  
  1782. doaSHADEpoly:
  1783.  
  1784.  move.w (a1)+,d7    ; sides to draw
  1785.  addq #2,a1        ; avoid holes
  1786.  
  1787.  move.l #SHADOWPTS,a3
  1788.  
  1789.  move.w (a1),d0
  1790.  move.w 4(a1),d1
  1791.  move.w 8(a1),d2
  1792.  muls #10,d0
  1793.  muls #10,d1
  1794.  muls #10,d2
  1795.  move.w 8(a3,d0.w),d3
  1796.  move.w 8(a3,d1.w),d4
  1797.  move.w 8(a3,d2.w),d5
  1798.  move.l (a3,d0.w),d0
  1799.  move.l (a3,d1.w),d1
  1800.  move.l (a3,d2.w),d2
  1801.  asr.l #8,d0
  1802.  asr.l #8,d1
  1803.  asr.l #8,d2
  1804.  asr.l #1,d0
  1805.  asr.l #1,d1
  1806.  asr.l #1,d2
  1807.  
  1808.  sub.w d1,d0
  1809.  sub.w d1,d2
  1810.  sub.w d4,d3
  1811.  sub.w d4,d5
  1812.  muls d3,d2
  1813.  muls d5,d0
  1814.  sub.l d0,d2
  1815.  bge SHADpolybehind
  1816.  
  1817.  
  1818.  
  1819.  move.w #20000,d4    ; top
  1820.  move.w #-20000,d5    ; bottom
  1821.  move.l #UVCOORDS,a4
  1822.  
  1823. putinlinesSHAD:
  1824.  move.w (a1),d0
  1825.  move.w 4(a1),d1
  1826.  
  1827.  moveq #0,d2
  1828.  move.b 2(a1),d2    ; one end U
  1829.  move.w d2,2(a4,d0.w*4)
  1830.  move.b 3(a1),d2    ; one end V
  1831.  move.w d2,(a4,d0.w*4)
  1832.  move.b 6(a1),d2    ; two end U
  1833.  move.w d2,2(a4,d1.w*4)
  1834.  move.b 7(a1),d2    ; two end V
  1835.  move.w d2,(a4,d1.w*4)
  1836.  
  1837.  move.w d0,d2
  1838.  muls #10,d2
  1839.  move.w 8(a3,d2.w),d2    ; Z
  1840.  
  1841.  cmp.w d2,d4
  1842.  ble.s .oktop
  1843.  move.w d2,d4
  1844. .oktop
  1845.  cmp.w d2,d5
  1846.  bge.s .okbot
  1847.  move.w d2,d5
  1848. .okbot
  1849.  
  1850.  movem.l d4/d5/d7/a1/a3/a4,-(a7)
  1851.  bsr SIMPLESHADLINE
  1852.  movem.l (a7)+,d4/d5/d7/a1/a3/a4
  1853.  addq #4,a1
  1854.  dbra d7,putinlinesSHAD
  1855.  addq #4,a1
  1856.   
  1857.  move.w (a1)+,TEXTUREADD
  1858.  
  1859.  asr.w #2,d4
  1860.  asr.w #2,d5
  1861.  add.w #128,d4
  1862.  add.w #128,d5
  1863.  move.w d4,TOPLINE
  1864.  move.w d5,BOTLINE
  1865.  
  1866. * Now draw the shadow polygon....
  1867.  
  1868.  move.l #SHADOWBUFFER,a2
  1869.  move.l #LEFTUVS,a0
  1870.  move.w TOPLINE,d0
  1871.  move.w BOTLINE,d1
  1872.  sub.w d0,d1
  1873.  asl.w #3,d0
  1874.  add.w d0,a0
  1875.  muls #(512/8),d0
  1876.  add.l d0,a2    ; pointer to screen line.
  1877.  
  1878.  subq #1,d1
  1879.  blt NOPOLYGONSHAD
  1880.  
  1881. DOAHORLINESHAD:
  1882.  swap d1
  1883.  
  1884.  move.w RIGHTUVS-LEFTUVS(a0),d0
  1885.  move.w (a0)+,d7
  1886.  sub.w d7,d0
  1887.  blt NOPOLYGONSHAD
  1888.  
  1889.  move.l a2,-(a7)
  1890.  
  1891. ; asr.w #2,d0
  1892. ; asr.w #2,d7
  1893.  lea (a2,d7.w*2),a2
  1894.  ext.l d0
  1895.  addq #1,d0
  1896.  
  1897.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1898.  move.w (a0)+,d4
  1899.  swap d7
  1900.  clr.w d7
  1901.  swap d4
  1902.  clr.w d4
  1903.  sub.l d4,d7
  1904.  divs.l d0,d7
  1905.  move.l d7,a5
  1906.  
  1907.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1908.  swap d7
  1909.  clr.w d7
  1910.  move.w (a0)+,d5
  1911.  swap d5
  1912.  clr.w d5
  1913.  sub.l d5,d7
  1914.  divs.l d0,d7
  1915.  move.l d7,a6
  1916.  
  1917.  move.w RIGHTUVS-LEFTUVS(a0),d7
  1918.  swap d7
  1919.  clr.w d7
  1920.  move.w (a0)+,d6
  1921.  swap d6
  1922.  clr.w d6
  1923.  sub.l d6,d7
  1924.  divs.l d0,d7
  1925.  move.l d7,a3
  1926.  
  1927.  move.l a0,-(a7)
  1928.  move.l d1,-(a7)
  1929.  move.l #TEXTURES,a0
  1930.  move.w TEXTUREADD,d7
  1931.  bge.s .okaddtes3
  1932.  and.w #$7fff,d7
  1933.  add.l #65536*4,a0
  1934. .okaddtes3:
  1935.  ext.l d7
  1936. ; add.l d7,d7
  1937.  asl.l #8,d7
  1938.  add.l d7,a0
  1939.  move.w #0,d7
  1940.  
  1941.  subq #1,d0
  1942.  
  1943. ; d0=xdist
  1944. ; d4=U  a5=DU
  1945. ; d5=V  a6=DV
  1946. ; d6=Y  a3=DY
  1947.  moveq #0,d1
  1948.  
  1949.  swap d6
  1950.  
  1951. PLOTADOT:
  1952.  
  1953. .across
  1954.  
  1955. ; swap d4
  1956. ; swap d5
  1957. ; move.w d4,d2
  1958. ; lsl.w #8,d2
  1959. ; swap d4
  1960. ; move.b d5,d2
  1961. ; add.l a5,d4
  1962. ; swap d5
  1963. ; add.l a6,d5
  1964.  
  1965.  
  1966. ; swap d6
  1967. ; move.b (a2)+,d1
  1968. ; tst.b 1(a0,d2.w*8)
  1969. ; beq.s .noplottt
  1970.  move.b d6,(a2)
  1971.  addq #2,a2
  1972.  
  1973.  dbra d0,.across
  1974.  bra.s .plaster
  1975.  
  1976. .noplottt:
  1977.  addq #1,a2
  1978.  dbra d0,.across
  1979.  
  1980. .plaster:
  1981.  
  1982.  move.l (a7)+,d1
  1983.  move.l (a7)+,a0
  1984.  move.l (a7)+,a2
  1985.  
  1986. .noline:
  1987.  add.w #512,a2
  1988.  
  1989.  swap d1
  1990.  dbra d1,DOAHORLINESHAD
  1991.  
  1992. NOPOLYGONSHAD:
  1993.  
  1994. SHADpolybehind:
  1995.  rts
  1996.  
  1997.  
  1998. ************************************************
  1999.  
  2000. LU: dc.w 0
  2001. LV: dc.w 0
  2002. RU: dc.w 0
  2003. RV: dc.w 0
  2004.     
  2005. SIMPLESHADLINE:
  2006.  move.l #SHADOWPTS,a1
  2007.  
  2008.  move.l #UVCOORDS,a2
  2009.  move.w (a2,d0.w*4),LU
  2010.  move.w 2(a2,d0.w*4),LV
  2011.  move.w (a2,d1.w*4),RU
  2012.  move.w 2(a2,d1.w*4),RV
  2013.  
  2014.  muls #10,d0
  2015.  muls #10,d1
  2016.  move.w 8(a1,d0.w),d2        ;fz
  2017.  move.w 8(a1,d1.w),d7        ;sz
  2018.  ext.l d2
  2019.  ext.l d7
  2020.  
  2021.  move.l #LEFTUVS,a3
  2022.  asr.l #2,d2
  2023.  asr.l #2,d7
  2024.  cmp.l d2,d7 
  2025.  beq .noline
  2026.  
  2027.  bgt.s .lineonright
  2028. .lineonleft:
  2029.  move.l #RIGHTUVS,a3
  2030.  exg d0,d1
  2031.  exg d2,d7
  2032.  
  2033.  move.l LU,d5
  2034.  move.l RU,LU
  2035.  move.l d5,RU
  2036.  
  2037. .lineonright:
  2038.  
  2039.  sub.w d2,d7
  2040.  add.w #128,d2
  2041.  lea (a3,d2.w*8),a3
  2042.  
  2043.  move.w d7,YDIFF
  2044.  
  2045.  move.l (a1,d0.w),d3        ;fx
  2046.  move.l (a1,d1.w),d7        ;sx
  2047.  
  2048.  asl.l #5,d3
  2049.  asl.l #5,d7
  2050.  
  2051.  sub.l d3,d7
  2052.  divs.l YDIFF-2,d7
  2053.  move.l d7,a0    ; dx
  2054.  
  2055.  move.l #ROTATEDPTS,a1
  2056.  
  2057.  move.w LU,d4
  2058.  move.w LV,d5
  2059.  move.w RU,d6
  2060.  move.w RV,d7
  2061.  
  2062.  sub.w d4,d6
  2063.  sub.w d5,d7
  2064.  swap d4
  2065.  swap d5
  2066.  clr.w d4
  2067.  clr.w d5
  2068.  swap d6
  2069.  swap d7
  2070.  clr.w d6
  2071.  clr.w d7
  2072.  
  2073.  divs.l YDIFF-2,d6
  2074.  divs.l YDIFF-2,d7
  2075.  
  2076.  move.l d6,a4
  2077.  move.l d7,a5
  2078.  
  2079. ; asl.w #4,d0
  2080. ; asl.w #4,d1
  2081.  
  2082.  move.l 4(a1,d0.w),d6
  2083.  move.l 4(a1,d1.w),d7
  2084.  asl.l #5,d6
  2085.  asl.l #5,d7
  2086.  sub.l d6,d7
  2087.  divs.l YDIFF-2,d7
  2088.  exg d7,a6
  2089.  exg d7,d6
  2090.  
  2091.  move.l YDIFF-2,d1
  2092.  subq #1,d1
  2093.  
  2094. ; d3=x a0=dx
  2095. ; d4=u a4=du
  2096. ; d5=v a5=dv
  2097. ; d7=y a6=dy
  2098. ; d1=dz
  2099.  
  2100.  move.w HIGHPOLY,d7
  2101.  
  2102.  add.l #128*65536,d3
  2103. ; add.l #128*65536,d7
  2104.  
  2105. .PUTINLINE:
  2106.  swap d3
  2107.  move.w d3,(a3)+
  2108.  swap d3
  2109.  add.l a0,d3
  2110.  swap d4
  2111.  move.w d4,(a3)+
  2112.  swap d4
  2113.  swap d5
  2114.  add.l a4,d4
  2115.  move.w d5,(a3)+
  2116.  swap d5
  2117.  add.l a5,d5
  2118. ; swap d7
  2119.  move.w d7,(a3)+
  2120. ; swap d7
  2121. ; add.l a6,d7
  2122.  dbra d1,.PUTINLINE
  2123.  
  2124. .noline:
  2125.  rts
  2126.  
  2127. BCOS: dc.w 0
  2128. BSIN: dc.w 0
  2129. ACOS: dc.w 0
  2130. ASIN: dc.w 0
  2131.  
  2132. CCOS: dc.w 0
  2133. CSIN: dc.w 0
  2134. DCOS: dc.w 0
  2135. DSIN: dc.w 0
  2136. ECOS: dc.w 0
  2137. ESIN: dc.w 0
  2138.  
  2139. FSX: dc.w 0
  2140. FSY: dc.w 0
  2141. SSX: dc.w 0
  2142. SSY: dc.w 0
  2143.  
  2144. **************************************************
  2145.  
  2146. doapoly:
  2147.  
  2148.  move.w (a1)+,d7    ; sides to draw
  2149.  addq #2,a1        ; avoid holes
  2150.  move.w 12(a1,d7.w*4),pregour
  2151.  
  2152.  move.l #ONSCREENPTS,a3
  2153.  
  2154.  move.w (a1),d0
  2155.  move.w 4(a1),d1
  2156.  move.w 8(a1),d2
  2157.  move.w 2(a3,d0.w*4),d3
  2158.  move.w 2(a3,d1.w*4),d4
  2159.  move.w 2(a3,d2.w*4),d5
  2160.  move.w (a3,d0.w*4),d0
  2161.  move.w (a3,d1.w*4),d1
  2162.  move.w (a3,d2.w*4),d2
  2163.  
  2164.  sub.w d1,d0
  2165.  sub.w d1,d2
  2166.  sub.w d4,d3
  2167.  sub.w d4,d5
  2168.  muls d3,d2
  2169.  muls d5,d0
  2170.  sub.l d0,d2
  2171.  ble polybehind
  2172.  
  2173. ; Now we must rotate the polygons coordinates in
  2174. ; the specular map so that the texturemap is vertical
  2175. ; relative to the specular map and so that bump-
  2176. ; mapping can take place unerroneously!
  2177.  
  2178. ; movem.l d0-d7/a0-a6,-(a7)
  2179.  
  2180.  move.w #0,BCOS
  2181.  move.w #128*128,ACOS
  2182.  move.w #0,BSIN
  2183.  move.w #0,ASIN
  2184.  
  2185.  moveq #0,d3
  2186.  move.b 2(a1),d3
  2187.  moveq #0,d4
  2188.  move.b 3(a1),d4
  2189.  moveq #0,d5
  2190.  move.b 2+4(a1),d5
  2191.  moveq #0,d6
  2192.  move.b 3+4(a1),d6
  2193.  
  2194.  sub.w d3,d5
  2195.  sub.w d4,d6
  2196.  
  2197.  move.w d5,d1
  2198.  move.w d6,d2
  2199.  muls d1,d1
  2200.  muls d2,d2
  2201.  add.l d1,d2
  2202.  jsr CALCSQROOT
  2203.  tst.w d2
  2204.  beq .NOROT
  2205.  
  2206.  ext.l d5
  2207.  ext.l d6
  2208.  asl.l #7,d5
  2209.  asl.l #7,d6
  2210.  divs d2,d5
  2211.  divs d2,d6
  2212.  move.w d5,ECOS
  2213.  move.w d6,ESIN
  2214.  
  2215.  move.w ECOS,d0
  2216.  asl.w #7,d0
  2217.  move.w d0,ACOS
  2218.  move.w ESIN,d0
  2219.  asl.w #7,d0
  2220.  move.w d0,ASIN
  2221.  
  2222.  move.l #SPECBRIGHTS,a3
  2223.  
  2224.  move.w (a1),d0
  2225.  moveq #0,d5
  2226.  moveq #0,d6
  2227.  move.b (a3,d0.w*4),d5
  2228.  move.b 1(a3,d0.w*4),d6
  2229.  move.w 4(a1),d0
  2230.  moveq #0,d3
  2231.  moveq #0,d4
  2232.  move.b (a3,d0.w*4),d3
  2233.  move.b 1(a3,d0.w*4),d4
  2234.  sub.w d5,d3
  2235.  sub.w d6,d4
  2236.  
  2237.  move.w d3,d1
  2238.  move.w d4,d2
  2239.  muls d1,d1
  2240.  muls d2,d2
  2241.  add.l d1,d2
  2242.  jsr CALCSQROOT
  2243.  tst.w d2
  2244.  beq .NOROT1
  2245.  
  2246.  ext.l d3
  2247.  asl.l #7,d3
  2248.  ext.l d4
  2249.  asl.l #7,d4
  2250.  divs d2,d3
  2251.  divs d2,d4
  2252.  move.w d3,BCOS
  2253.  neg.w d4
  2254.  move.w d4,BSIN
  2255.  
  2256.  move.w ECOS,d4
  2257.  move.w ESIN,d5
  2258.  move.w d4,d2
  2259.  move.w d5,d3
  2260.  muls BCOS,d2
  2261.  muls BSIN,d3
  2262.  sub.l d3,d2
  2263.  muls BSIN,d4
  2264.  muls BCOS,d5
  2265.  add.l d5,d4
  2266.  move.w d2,ACOS
  2267.  move.w d4,ASIN
  2268.  
  2269. .NOROT1
  2270.  
  2271.  move.w #0,DCOS
  2272.  move.w #0,DSIN
  2273.  move.w ECOS,d0
  2274.  asl.w #7,d0
  2275.  move.w d0,CCOS
  2276.  move.w ESIN,d0
  2277.  asl.w #7,d0
  2278.  move.w d0,CSIN
  2279.  
  2280. ; bra .NOROT
  2281.  
  2282. ; First calculate angle B
  2283.  
  2284.  move.l #NORMBRIGHTS,a3
  2285.  
  2286.  movem.l d7/a1,-(a7)
  2287.  
  2288. .findnonzer:
  2289.  
  2290.  move.w (a1),d0
  2291.  moveq #0,d5
  2292.  moveq #0,d6
  2293.  move.b (a3,d0.w*2),d5
  2294.  move.b 1(a3,d0.w*2),d6
  2295.  move.w 4(a1),d0
  2296.  moveq #0,d3
  2297.  moveq #0,d4
  2298.  move.b (a3,d0.w*2),d3
  2299.  move.b 1(a3,d0.w*2),d4
  2300.  sub.w d5,d3
  2301.  sub.w d6,d4
  2302.  bne.s .okok
  2303.  tst.w d3
  2304.  bne.s .okok
  2305.  
  2306.  addq #4,a1
  2307.  
  2308.  dbra d7,.findnonzer
  2309.  
  2310.  movem.l (a7)+,d7/a1
  2311.  bra .NOROT
  2312.  
  2313. .okok:
  2314.  
  2315.  moveq #0,d3
  2316.  move.b 2(a1),d3
  2317.  moveq #0,d4
  2318.  move.b 3(a1),d4
  2319.  moveq #0,d5
  2320.  move.b 2+4(a1),d5
  2321.  moveq #0,d6
  2322.  move.b 3+4(a1),d6
  2323.  
  2324.  sub.w d3,d5
  2325.  sub.w d4,d6
  2326.  
  2327.  move.w d5,d1
  2328.  move.w d6,d2
  2329.  muls d1,d1
  2330.  muls d2,d2
  2331.  add.l d1,d2
  2332.  jsr CALCSQROOT
  2333.  tst.w d2
  2334.  beq .NOROT8
  2335.  
  2336.  ext.l d5
  2337.  ext.l d6
  2338.  asl.l #7,d5
  2339.  asl.l #7,d6
  2340.  divs d2,d5
  2341.  divs d2,d6
  2342.  move.w d5,ECOS
  2343.  neg.w d6
  2344.  move.w d6,ESIN
  2345.  move.w ECOS,d0
  2346.  asl.w #7,d0
  2347.  move.w d0,CCOS
  2348.  move.w ESIN,d0
  2349.  asl.w #7,d0
  2350.  neg.w d0
  2351.  move.w d0,CSIN
  2352.  
  2353. .NOROT8:
  2354.  
  2355.  movem.l (a7)+,d7/a1
  2356.  
  2357.  move.w d3,d1
  2358.  move.w d4,d2
  2359.  muls d1,d1
  2360.  muls d2,d2
  2361.  add.l d1,d2
  2362.  jsr CALCSQROOT
  2363.  tst.w d2
  2364.  beq .NOROT
  2365.  
  2366.  ext.l d3
  2367.  asl.l #7,d3
  2368.  ext.l d4
  2369.  asl.l #7,d4
  2370.  divs d2,d3
  2371.  divs d2,d4
  2372.  move.w d3,DCOS
  2373.  neg.w d4
  2374.  move.w d4,DSIN
  2375.  
  2376.  move.w ECOS,d4
  2377.  move.w ESIN,d5
  2378.  move.w d4,d2
  2379.  move.w d5,d3
  2380.  muls DCOS,d2
  2381.  muls DSIN,d3
  2382.  sub.l d3,d2
  2383.  muls DSIN,d4
  2384.  muls DCOS,d5
  2385.  add.l d5,d4
  2386.  move.w d2,CCOS
  2387.  move.w d4,CSIN
  2388.  
  2389.  
  2390. .NOROT:
  2391.  
  2392. ; movem.l (a7)+,d0-d7/a0-a6
  2393.  
  2394.  move.l #ONSCREENPTS,a3
  2395.  
  2396.  move.w #20000,d4    ; top
  2397.  move.w #-20000,d5    ; bottom
  2398.  move.l #UVCOORDS,a4
  2399.  
  2400.  move.l a1,a0
  2401.  
  2402. putinlines:
  2403.  move.w (a1),d0
  2404.  move.w 4(a1),d1
  2405.  
  2406.  moveq #0,d2
  2407.  move.b 2(a1),d2    ; one end U
  2408.  move.w d2,2(a4,d0.w*4)
  2409.  move.b 3(a1),d2    ; one end V
  2410.  move.w d2,(a4,d0.w*4)
  2411.  move.b 6(a1),d2    ; two end U
  2412.  move.w d2,2(a4,d1.w*4)
  2413.  move.b 7(a1),d2    ; two end V
  2414.  move.w d2,(a4,d1.w*4)
  2415.  
  2416.  move.w 2(a3,d0.w*4),d2    ; Z
  2417.  
  2418.  cmp.w d2,d4
  2419.  ble.s .oktop
  2420.  move.w d2,d4
  2421. .oktop
  2422.  cmp.w d2,d5
  2423.  bge.s .okbot
  2424.  move.w d2,d5
  2425. .okbot
  2426.  
  2427.  movem.l a0/d4/d5/d7/a1/a3/a4,-(a7)
  2428.  jsr SIMPLECALCLINE
  2429.  movem.l (a7)+,a0/d4/d5/d7/a1/a3/a4
  2430.  addq #4,a1
  2431.  dbra d7,putinlines
  2432.  addq #4,a1 
  2433.  
  2434.  move.w (a1)+,TEXTUREADD
  2435.  
  2436.  asr.w #2,d4
  2437.  asr.w #2,d5
  2438. ; add.w #128,d4
  2439. ; add.w #128,d5
  2440.  move.w d4,TOPLINE
  2441.  move.w d5,BOTLINE
  2442.   
  2443.  move.l #SHADOWPTS,a1
  2444.  move.w (a0),d0
  2445.  move.w 4(a0),d1
  2446.  move.w 8(a0),d2
  2447.  
  2448. CHECKVALS:
  2449.  
  2450.  muls #10,d0
  2451.  muls #10,d1
  2452.  muls #10,d2
  2453.  
  2454.  lea (a1,d0.w),a0
  2455.  lea (a1,d2.w),a2
  2456.  lea (a1,d1.w),a1
  2457.  
  2458.  move.l (a0),d3
  2459.  sub.l (a1),d3
  2460.  asr.l #8,d3
  2461.  asr.l #1,d3
  2462.  move.l 4(a0),d4
  2463.  sub.l 4(a1),d4
  2464.  asr.l #8,d4
  2465.  asr.l #1,d4
  2466.  move.w 8(a0),d5
  2467.  sub.w 8(a1),d5
  2468.  
  2469.  move.w d3,d6
  2470.  muls d6,d6
  2471.  move.w d4,d7
  2472.  muls d7,d7
  2473.  add.l d7,d6
  2474.  move.w d5,d7
  2475.  muls d7,d7
  2476.  add.l d7,d6
  2477.  move.l d6,d2
  2478.  jsr CALCSQROOT
  2479.  move.w d2,LEN1
  2480.  
  2481.  move.l (a2),d0
  2482.  sub.l (a1),d0
  2483.  asr.l #8,d0
  2484.  asr.l #1,d0
  2485.  move.l 4(a2),d1
  2486.  sub.l 4(a1),d1
  2487.  asr.l #8,d1
  2488.  asr.l #1,d1
  2489.  move.w 8(a2),d2
  2490.  sub.w 8(a1),d2
  2491.  
  2492.  muls d2,d3
  2493.  muls d0,d5
  2494.  sub.l d3,d5    ; length
  2495.  muls.l #$4c,d5
  2496.  
  2497.  muls d0,d0
  2498.  muls d1,d1
  2499.  muls d2,d2
  2500.  add.l d0,d1
  2501.  add.l d1,d2
  2502.  jsr CALCSQROOT
  2503.  
  2504.  muls LEN1,d2
  2505.  bgt.s .ok
  2506.  moveq #1,d2
  2507. .ok
  2508.  
  2509.  divs.l d2,d5
  2510.  
  2511.  add.l #16,d5
  2512.  
  2513.  tst.l d5
  2514.  ble.s .okbr
  2515.  moveq #0,d5
  2516. .okbr:
  2517.  add.w #$5c,d5
  2518.  bge.s .okbr2
  2519.  moveq #0,d5
  2520. .okbr2:
  2521.  
  2522.  move.w d5,d0
  2523.  
  2524.  asl.w #8,d5
  2525.  move.w d5,BRIGHTNESS+2
  2526.  
  2527.  sub.w #$5c,d0
  2528.  asr.w #1,d0
  2529.  add.w #$5c,d0
  2530.  asl.w #8,d0
  2531.  move.w d0,BRIGHTNESS
  2532.  
  2533.  
  2534. ***********************************************
  2535. * Draw the polygon (shadowed).
  2536.  
  2537.  move.l FASTBUFFER,a2
  2538.  move.l #LEFTUVS,a0
  2539.  move.w TOPLINE,d0
  2540.  move.w BOTLINE,d1
  2541.  sub.w d0,d1
  2542.  move.l #LEFTZS,a3
  2543.  lea (a3,d0.w*2),a3
  2544.  move.l a3,ZSPTR
  2545.  
  2546.  move.w d0,d2
  2547.  muls #20,d2
  2548.  add.l d2,a0
  2549.  muls #320,d0
  2550.  add.l d0,a2    ; pointer to screen line.
  2551.  
  2552.  move.l #DEPTHBUFFER,a3
  2553.  lea (a3,d0.l*4),a3    ; pointer to depth buff line
  2554.  move.l a3,DEPTHPTR
  2555.  
  2556.  subq #1,d1
  2557.  blt NOPOLYGON
  2558.  
  2559.  tst.b Gouraud
  2560.  bne GOURPOLY
  2561.  
  2562. DOAHORLINE:
  2563.  swap d1
  2564.  
  2565.  move.w RIGHTUVS-LEFTUVS(a0),d0
  2566.  move.w (a0)+,d7
  2567.  asr.w #2,d0
  2568.  asr.w #2,d7
  2569.  sub.w d7,d0
  2570.  bge.s .okflibble
  2571.  
  2572.  add.w #14,a0
  2573.  add.w #320,a2
  2574.  swap d1
  2575.  dbra d1,DOAHORLINE
  2576.  bra NOPOLYGON
  2577.  
  2578. .okflibble:
  2579.  
  2580.  move.l a2,-(a7)
  2581.  
  2582.  add.w d7,a2
  2583.  ext.l d0
  2584.  addq #1,d0
  2585.  
  2586.  move.l RIGHTUVS-LEFTUVS(a0),d7
  2587.  move.l (a0)+,d2 
  2588.  sub.l d2,d7
  2589.  divs.l d0,d7
  2590.  move.l d7,a1
  2591.  
  2592.  
  2593.  
  2594.  
  2595.  
  2596.  
  2597.  
  2598.  
  2599.  
  2600.  
  2601.  
  2602.  
  2603.  
  2604.  
  2605.  
  2606.  
  2607.  
  2608.  
  2609.  move.l RIGHTUVS-LEFTUVS(a0),d7 
  2610.  move.l (a0)+,d3 
  2611.  
  2612.  
  2613.  
  2614.  
  2615.  
  2616.  
  2617.  
  2618.  
  2619.  
  2620.  
  2621.  
  2622.  
  2623.  
  2624.  
  2625.  
  2626.  
  2627.  
  2628.  
  2629.  
  2630.  
  2631.  sub.l d3,d7
  2632.  divs.l d0,d7
  2633.  move.l d7,a4
  2634.  
  2635.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2636.  move.w (a0)+,d4
  2637.  swap d7
  2638.  clr.w d7
  2639.  swap d4
  2640.  clr.w d4
  2641.  sub.l d4,d7
  2642.  divs.l d0,d7
  2643.  move.l d7,a5
  2644.  
  2645.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2646.  swap d7
  2647.  clr.w d7
  2648.  move.w (a0)+,d5
  2649.  swap d5
  2650.  clr.w d5
  2651.  sub.l d5,d7
  2652.  divs.l d0,d7
  2653.  move.l d7,a6
  2654.  
  2655.  move.w RIGHTUVS-LEFTUVS(a0),d7
  2656.  swap d7
  2657.  clr.w d7
  2658.  move.w (a0)+,d6
  2659.  swap d6
  2660.  clr.w d6
  2661.  sub.l d6,d7
  2662.  divs.l d0,d7
  2663.  move.l d7,a3
  2664.  
  2665.  move.l a0,-(a7)
  2666.  move.l d1,-(a7)
  2667.  move.l #TEXTURES,a0
  2668.  move.w TEXTUREADD,d7
  2669.  bge.s .okaddtes3
  2670.  and.w #$7fff,d7
  2671.  add.l #65536*4,a0
  2672. .okaddtes3:
  2673.  ext.l d7
  2674. ; add.l d7,d7
  2675.  asl.l #8,d7
  2676.  add.l d7,a0
  2677.  move.w #0,d7
  2678.  
  2679.  move.l BRIGHTNESS,a6
  2680.  
  2681.  move.l a7,SAVESTACK
  2682.  move.l #SHADOWBUFFER,a7
  2683.  
  2684.  subq #1,d0
  2685.  
  2686. ; d0=xdist
  2687. ; d2=U    a1=DU
  2688. ; d3=V  a4=DV
  2689. ; d4=X  a5=DX
  2690. ; d5=Y  a6=DY
  2691. ; d6=Z  a3=DZ
  2692.  move.w HIGHPOLY,d5
  2693.  
  2694.  moveq #0,d1
  2695.  swap d6
  2696.  move.w d6,d1
  2697.  lsl.w #8,d1
  2698.  swap d4
  2699.  move.b d4,d1
  2700.  swap d4
  2701.  swap d6
  2702.  
  2703.  moveq #0,d7
  2704.  move.b (a7,d1.l),d7
  2705.  cmp.w d7,d5
  2706.  ble INTHELIGHT
  2707.  bra.s INTHEDARK
  2708.  
  2709. PENUMBRA:
  2710.  moveq #0,d1
  2711.  swap d6
  2712.  move.w d6,d1
  2713.  lsl.w #8,d1
  2714.  swap d4
  2715.  move.b d4,d1
  2716.  swap d4
  2717.  swap d6
  2718.  add.l a5,d4
  2719.  add.l a3,d6
  2720.  
  2721.      moveq #0,d7
  2722.  move.b (a7,d1.l),d7
  2723.  cmp.w d7,d5
  2724.  ble INTOLIGHT
  2725.  bra.s INTODARK
  2726.  
  2727.  
  2728. INTHEDARK:
  2729.  moveq #0,d1
  2730.  swap d6
  2731.  move.w d6,d1
  2732.  lsl.w #8,d1
  2733.  swap d4
  2734.  move.b d4,d1
  2735.  swap d4
  2736.  swap d6
  2737.  add.l a5,d4
  2738.  add.l a3,d6
  2739.  
  2740.  moveq #0,d7
  2741.  move.b (a7,d1.l),d7
  2742.  cmp.w d7,d5
  2743.  ble.s INTOPENUM
  2744. INTODARK:
  2745.  move.w #$5c00,d7
  2746.  swap d2
  2747.  move.w d2,d1
  2748.  asl.w #8,d1
  2749.  swap d3
  2750.  move.b d3,d1
  2751.  swap d2
  2752.  swap d3
  2753.  add.l a1,d2
  2754.  add.l a4,d3
  2755.  
  2756. ; move.b (a0,d1.w*4),d7
  2757. ; beq.s .noplottt
  2758.  
  2759.  move.b TEXTUREPAL-256(pc,d7.w),(a2)+
  2760.  dbra d0,INTHEDARK
  2761.  bra.s PASTAC 
  2762.  
  2763. .noplottt
  2764.  addq #1,a2
  2765.  dbra d0,INTHEDARK
  2766.  bra.s PASTAC
  2767.  
  2768. INTOPENUM:
  2769.  move.l a6,d7
  2770.  swap d7
  2771.  swap d2
  2772.  move.w d2,d1
  2773.  asl.w #8,d1
  2774.  swap d3
  2775.  move.b d3,d1
  2776.  swap d2
  2777.  swap d3
  2778.  add.l a1,d2
  2779.  add.l a4,d3
  2780.  
  2781. ; move.b (a0,d1.w*4),d7
  2782. ; beq.s .noplottt
  2783.  
  2784.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2785.  dbra d0,PENUMBRA
  2786.  bra.s PASTAC 
  2787.  
  2788. .noplottt
  2789.  addq #1,a2
  2790.  dbra d0,PENUMBRA
  2791.  bra.s PASTAC
  2792.  
  2793. INTHELIGHT:
  2794.  
  2795.  moveq #0,d1
  2796.  swap d6
  2797.  move.w d6,d1
  2798.  lsl.w #8,d1
  2799.  swap d4
  2800.  move.b d4,d1
  2801.  swap d4
  2802.  swap d6
  2803.  add.l a5,d4
  2804.  add.l a3,d6
  2805.  
  2806.  moveq #0,d7
  2807.  move.b (a7,d1.l),d7
  2808.  cmp.w d7,d5
  2809.  bgt.s INTOPENUM
  2810. INTOLIGHT:
  2811.  move.w a6,d7
  2812.  swap d2
  2813.  move.w d2,d1
  2814.  asl.w #8,d1
  2815.  swap d3
  2816.  move.b d3,d1
  2817.  swap d2
  2818.  swap d3
  2819.  add.l a1,d2
  2820.  add.l a4,d3
  2821.  
  2822. ; move.b (a0,d1.w*4),d7
  2823. ; beq.s .noplottt
  2824.  
  2825.  move.b TEXTUREPAL(pc,d7.w),(a2)+
  2826.  dbra d0,INTHELIGHT
  2827.  bra.s PASTAC 
  2828.  
  2829. .noplottt:
  2830.  addq #1,a2
  2831.  dbra d0,INTHELIGHT
  2832.  
  2833. PASTAC
  2834.  
  2835.  move.l SAVESTACK,a7
  2836.  
  2837.  move.l (a7)+,d1
  2838.  move.l (a7)+,a0
  2839.  move.l (a7)+,a2
  2840.  
  2841. .noline:
  2842.  add.w #320,a2
  2843.  
  2844.  swap d1
  2845.  dbra d1,DOAHORLINE
  2846.  
  2847. NOPOLYGON:
  2848. polybehind:
  2849.  rts
  2850.  
  2851. TEXTUREPAL:
  2852.  
  2853. SAVESTACK: dc.l 0
  2854. HIGHPOLY: dc.w 0
  2855. LEN1: dc.w 0
  2856. BRIGHTNESS: dc.l 0
  2857. TRANSTEXT: dc.w 0
  2858. AANG: dc.w 0
  2859. BANG: dc.w 0
  2860. CANG: dc.w 0
  2861. DANG: dc.w 0
  2862.  
  2863.  include "ab3:print.s"
  2864.  
  2865.  temp: dc.w 0
  2866.  
  2867. DEPTHPTR: dc.l 0
  2868. LEFTX: dc.w 0
  2869. ZSPTR: dc.l 0
  2870.  
  2871. GOURPOLY: 
  2872.  
  2873. DOAHORLINEGOUR:
  2874.  swap d1
  2875.  
  2876.  ifeq SHADING
  2877.  move.w #128,16(a0)
  2878.  move.w #128,16+RIGHTUVS-LEFTUVS(a0)
  2879.  move.w #128,4+RIGHTUVS-LEFTUVS(a0)
  2880.  move.w #128,4(a0)
  2881.  endc
  2882.  
  2883.  move.w RIGHTUVS-LEFTUVS(a0),d0
  2884.  move.w (a0)+,d7
  2885.  asr.w #2,d0
  2886.  
  2887.  
  2888.  asr.w #2,d7
  2889.  move.w d7,LEFTX
  2890.  sub.w d7,d0
  2891.  bge.s .okflibble
  2892.  
  2893.  add.w #18,a0
  2894.  add.w #320,a2
  2895.  add.l #320*4,DEPTHPTR
  2896.  swap d1
  2897.  dbra d1,DOAHORLINEGOUR
  2898.  bra NOPOLYGON
  2899.  
  2900. .okflibble:
  2901.  
  2902.  move.l a2,-(a7)
  2903.  
  2904.  ifne POLYGONDEPTH
  2905.  move.l #LINEBUFFER,a2
  2906.  
  2907.  endc
  2908.  
  2909.  add.w d7,a2
  2910.  ext.l d0
  2911.  addq #1,d0
  2912.  
  2913.  move.b RIGHTUVS-LEFTUVS(a0),d3
  2914.  move.b (a0),d2
  2915.  
  2916.  ext.w d3
  2917.  ext.w d2
  2918.  
  2919.  tst.w d2
  2920.  blt .bothtowards
  2921.  
  2922. ; bgt .firstaway
  2923.  tst.w d3
  2924.  blt .bothtowards
  2925.  bra .bothaway
  2926.  
  2927. .firsttowards:
  2928.  tst.w d3
  2929.  ble .bothtowards
  2930.  
  2931. ; First is towards and second away...
  2932.  
  2933.  move.w d0,d7    ; total length
  2934.  move.w d0,d6
  2935.  neg.w d2
  2936.  add.w d2,d3
  2937.  muls d2,d6
  2938.  divs d3,d6    ; length of first bit
  2939.  sub.w d6,d7    ; length of second bit
  2940.  move.w d6,FIRSTLEN
  2941.  move.w d7,LASTLEN
  2942.  
  2943.  tst.w FIRSTLEN
  2944.  beq .bothaway
  2945.  tst.w LASTLEN
  2946.  beq .bothtowards
  2947.  
  2948.  moveq #0,d2
  2949.  moveq #0,d3
  2950.  moveq #0,d4
  2951.  moveq #0,d5
  2952.  move.b 6(a0),d2
  2953.  move.b 7(a0),d3
  2954.  
  2955.  move.w d2,FIRSTU
  2956.  move.w d3,FIRSTV
  2957.  
  2958.  move.w d2,d4
  2959.  move.w d3,d5
  2960.  sub.w #128,d2
  2961.  sub.w #128,d3
  2962.  muls d2,d2
  2963.  muls d3,d3
  2964.  add.l d3,d2
  2965.  jsr CALCSQROOT
  2966.  
  2967.  tst.w d2
  2968.  beq.s .nochng
  2969.  
  2970.  sub.w #128,d4
  2971.  sub.w #128,d5
  2972.  muls #127,d4
  2973.  muls #127,d5
  2974.  divs d2,d4
  2975.  divs d2,d5
  2976.  add.w #128,d4
  2977.  add.w #128,d5
  2978.  
  2979. .nochng:
  2980.  
  2981.  move.w d4,MIDU
  2982.  move.w d5,MIDV
  2983.  
  2984.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  2985.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  2986.  move.w d4,SECU
  2987.  move.w d5,SECV
  2988.  
  2989.  move.w d4,d2
  2990.  move.w d5,d3
  2991.  
  2992.  sub.w #128,d2
  2993.  sub.w #128,d3
  2994.  muls d2,d2
  2995.  muls d3,d3
  2996.  add.l d3,d2
  2997.  jsr CALCSQROOT
  2998.  
  2999.  tst.w d2
  3000.  beq.s .nochng2
  3001.  
  3002.  sub.w #128,d4
  3003.  sub.w #128,d5
  3004.  muls #127,d4
  3005.  muls #127,d5
  3006.  divs d2,d4
  3007.  divs d2,d5
  3008.  add.w #128,d4
  3009.  add.w #128,d5
  3010.  
  3011. .nochng2:
  3012.  
  3013.  add.w MIDU,d4
  3014.  add.w MIDV,d5
  3015.  asr.w #1,d4
  3016.  asr.w #1,d5
  3017.  move.w d4,MIDU
  3018.  move.w d5,MIDV 
  3019.  
  3020.  move.l RIGHTUVS-LEFTUVS(a0),d7
  3021.  move.l (a0)+,d2 
  3022.  
  3023.  and.l #$ffffff,d2
  3024.  and.l #$ffffff,d7
  3025.  
  3026.  moveq #0,d3
  3027.  moveq #0,d5
  3028.  move.w d2,d3
  3029. ; bge.s .okp1
  3030. ; moveq #0,d3
  3031. ;.okp1
  3032.  move.w d7,d5
  3033. ; bge.s .okp2
  3034. ; moveq #0,d5
  3035. ;.okp2
  3036.  
  3037.  swap d3
  3038.  swap d5
  3039.  sub.l d3,d5
  3040.  divs.l d0,d5
  3041.  asr.l #8,d5
  3042.  move.w d5,RIGHTBRIGHT
  3043.  asr.l #8,d3
  3044.  move.w d3,LEFTBRIGHT
  3045.  
  3046.  clr.w d2
  3047.  clr.w d7
  3048.  sub.l d2,d7
  3049.  asl.l #8,d2
  3050.  divs.l d0,d7
  3051.  asl.l #8,d7
  3052.  
  3053.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  3054.  move.l (a0)+,d3
  3055.  
  3056.  moveq #0,d4
  3057.  moveq #0,d5
  3058.  
  3059. ; move.w d6,d5
  3060. ; move.w d3,d4
  3061. ; move.b #0,d4
  3062. ; move.b #0,d5
  3063.  
  3064.  move.w FIRSTU,d4
  3065.  move.w MIDU,d5
  3066.  lsl.l #8,d4
  3067.  lsl.l #8,d5
  3068.  
  3069.  sub.l d4,d5
  3070.  divs.l FIRSTLEN-2,d5
  3071.  
  3072.  move.w d4,d2
  3073.  move.w d5,d7
  3074.  move.l d7,a1
  3075.  moveq #0,d4
  3076.  moveq #0,d5
  3077.  
  3078. ; move.b d6,d5
  3079. ; move.b d3,d4
  3080.  
  3081. ; swap d5
  3082. ; swap d4
  3083.  
  3084.  move.w FIRSTV,d4
  3085.  move.w MIDV,d5
  3086.  swap d4
  3087.  swap d5
  3088.  
  3089.  sub.l d4,d5
  3090.  divs.l FIRSTLEN-2,d5
  3091.  
  3092.  move.l d5,a3
  3093.  move.l d4,d5
  3094.   
  3095.  clr.w d3
  3096.  clr.w d6
  3097.  sub.l d3,d6
  3098.  divs.l d0,d6
  3099.  move.l d6,a4
  3100.  
  3101.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3102.  move.w (a0)+,d4
  3103.  swap d7
  3104.  clr.w d7
  3105.  swap d4
  3106.  clr.w d4
  3107.  sub.l d4,d7
  3108.  divs.l d0,d7
  3109.  move.l d7,a5
  3110.  
  3111. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  3112. ; swap d7
  3113. ; clr.w d7
  3114.  move.w (a0)+,d7
  3115. ; swap d5
  3116. ; clr.w d5
  3117. ; sub.l d5,d7
  3118. ; divs.l d0,d7
  3119. ; move.l d7,a6
  3120.  
  3121.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3122.  swap d7
  3123.  clr.w d7
  3124.  move.w (a0)+,d6
  3125.  swap d6
  3126.  clr.w d6
  3127.  sub.l d6,d7
  3128.  divs.l d0,d7
  3129.  
  3130.  lsl.l #8,d6
  3131.  lsl.l #8,d7
  3132.  
  3133.  move.w RIGHTBRIGHT,d7
  3134.  move.l d7,a6
  3135.  
  3136.  
  3137.  move.l a0,-(a7)
  3138.  move.l d1,-(a7)
  3139.  move.l #TEXTURES,a0
  3140.  move.w TEXTUREADD,d7
  3141.  bge.s .okaddtes3
  3142.  and.w #$7fff,d7
  3143.  add.l #65536*4,a0
  3144. .okaddtes3:
  3145.  ext.l d7
  3146. ; add.l d7,d7
  3147.  asl.l #8,d7
  3148.  add.l d7,a0
  3149.  move.w #0,d7
  3150.  
  3151.  move.w LEFTBRIGHT,d6
  3152.  
  3153.  subq #1,d0
  3154.  swap d0
  3155.  move.w HIGHPOLY,d0
  3156.  swap d0
  3157.  
  3158.  
  3159. ; d0=xdist
  3160. ; d2=U    a1=DU
  3161. ; d3=V  a4=DV
  3162. ; d4=X  a5=DX
  3163. ; d5=Y  a6=DY
  3164. ; d6=Z  a3=DZ
  3165.  
  3166. ; d0= polynum : polynum : counter : counter
  3167. ; d1= scratch : scratch : scratch : scratch
  3168. ; d2= u : uacc : sv : svacc
  3169. ; d3= v : v : vacc : vacc
  3170. ; d4= x : x : xacc : xacc
  3171. ; d5= su : su : suacc : suacc
  3172. ; d6= z : zacc : bright : brightacc
  3173. ; d7= scratch : scratch : scratch : scratch
  3174.  
  3175. ; a0= textures
  3176. ; a1= uspeed : uspeed : suspeed : suspeed
  3177. ; a2= screen pointer
  3178. ; a3= svspeed : svspeed : svspeed : svspeed
  3179. ; a4= vspeed : vspeed : vspeed : vspeed
  3180. ; a5= xspeed : xspeed : xspeed : xspeed
  3181. ; a6= zspeed : zspeed :brightspeed : brightspeed
  3182. ; a7= shadowmap pointer
  3183.  
  3184.  
  3185.  move.w FIRSTLEN,d0
  3186.  sub.w #1,d0
  3187.  bsr STARTLINE
  3188.  
  3189.  move.l #0,d5
  3190.  move.w #0,d2
  3191.  move.l #0,a3
  3192.  
  3193.  move.w LASTLEN,d0
  3194.  sub.w #1,d0
  3195.  
  3196.  bsr STARTLINE
  3197.  
  3198.  
  3199.  move.l (a7)+,d1
  3200.  move.l (a7)+,a0
  3201.  move.l (a7)+,a2
  3202.  
  3203.  bra .noline
  3204.  
  3205. .firstaway:
  3206.  tst.w d3
  3207.  bge .bothaway
  3208.  
  3209.  
  3210. ; first is away and second is towards...
  3211.  
  3212. ; this really isn't going to work...
  3213.  
  3214.  move.w d0,d7    ; total length
  3215.  move.w d0,d6
  3216.  neg.w d3
  3217.  add.w d2,d3
  3218.  muls d2,d6
  3219.  divs d3,d6    ; length of first bit
  3220.  sub.w d6,d7    ; length of second bit
  3221.  move.w d6,FIRSTLEN
  3222.  move.w d7,LASTLEN
  3223.  
  3224.  tst.w FIRSTLEN
  3225.  beq .bothaway
  3226.  tst.w LASTLEN
  3227.  beq .bothtowards
  3228.  
  3229.  moveq #0,d2
  3230.  moveq #0,d3
  3231.  moveq #0,d4
  3232.  moveq #0,d5
  3233.  move.b 6(a0),d2
  3234.  move.b 7(a0),d3
  3235.  
  3236.  move.w d2,FIRSTU
  3237.  move.w d3,FIRSTV
  3238.  
  3239.  move.w d2,d4
  3240.  move.w d3,d5
  3241.  sub.w #128,d2
  3242.  sub.w #128,d3
  3243.  muls d2,d2
  3244.  muls d3,d3
  3245.  add.l d3,d2
  3246.  jsr CALCSQROOT
  3247.  
  3248.  tst.w d2
  3249.  beq.s .nochng22
  3250.  
  3251.  sub.w #128,d4
  3252.  sub.w #128,d5
  3253.  muls #127,d4
  3254.  muls #127,d5
  3255.  divs d2,d4
  3256.  divs d2,d5
  3257.  add.w #128,d4
  3258.  add.w #128,d5
  3259.  
  3260. .nochng22:
  3261.  
  3262.  move.w d4,MIDU
  3263.  move.w d5,MIDV
  3264.  
  3265.  moveq #0,d4
  3266.  moveq #0,d5
  3267.  move.b 6+RIGHTUVS-LEFTUVS(a0),d4
  3268.  move.b 7+RIGHTUVS-LEFTUVS(a0),d5
  3269.  move.w d4,SECU
  3270.  move.w d5,SECV
  3271.  
  3272.  move.w d4,d2
  3273.  move.w d5,d3
  3274.  
  3275.  sub.w #128,d2
  3276.  sub.w #128,d3
  3277.  muls d2,d2
  3278.  muls d3,d3
  3279.  add.l d3,d2
  3280.  jsr CALCSQROOT
  3281.  
  3282.  tst.w d2
  3283.  beq.s .nochng222
  3284.  
  3285.  sub.w #128,d4
  3286.  sub.w #128,d5
  3287.  muls #127,d4
  3288.  muls #127,d5
  3289.  divs d2,d4
  3290.  divs d2,d5
  3291.  add.w #128,d4
  3292.  add.w #128,d5
  3293.  
  3294. .nochng222:
  3295.  
  3296.  add.w MIDU,d4
  3297.  add.w MIDV,d5
  3298.  asr.w #1,d4
  3299.  asr.w #1,d5
  3300.  move.w d4,MIDU
  3301.  move.w d5,MIDV
  3302.  
  3303.  
  3304.  move.l RIGHTUVS-LEFTUVS(a0),d7
  3305.  move.l (a0)+,d2 
  3306.  
  3307.  and.l #$ffffff,d2
  3308.  and.l #$ffffff,d7
  3309.  
  3310.  moveq #0,d3
  3311.  moveq #0,d5
  3312.  move.w d2,d3
  3313.  move.w d7,d5
  3314.  swap d3
  3315.  swap d5
  3316.  sub.l d3,d5
  3317.  divs.l d0,d5
  3318.  asr.l #8,d5
  3319.  move.w d5,RIGHTBRIGHT
  3320.  asr.l #8,d3
  3321.  move.w d3,LEFTBRIGHT
  3322.  
  3323.  clr.w d2
  3324.  clr.w d7
  3325.  sub.l d2,d7
  3326.  asl.l #8,d2
  3327.  divs.l d0,d7
  3328.  asl.l #8,d7
  3329.  
  3330.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  3331.  move.l (a0)+,d3
  3332.  
  3333.  moveq #0,d4
  3334.  moveq #0,d5
  3335.  
  3336.  move.w MIDU,d4
  3337.  move.w SECU,d5
  3338.  lsl.w #8,d4
  3339.  lsl.w #8,d5
  3340.  
  3341. ; move.w d6,d5
  3342. ; move.w d3,d4
  3343. ; move.b #0,d4
  3344. ; move.b #0,d5
  3345.  
  3346.  sub.l d4,d5
  3347.  divs.l LASTLEN-2,d5
  3348.  
  3349.  move.w d4,d2
  3350.  move.w d5,d7
  3351.  move.l d7,a1
  3352.  moveq #0,d4
  3353.  moveq #0,d5
  3354.  
  3355.  move.w MIDV,d4
  3356.  move.w SECV,d5
  3357.  
  3358.  swap d5
  3359.  swap d4
  3360.  
  3361.  sub.l d4,d5
  3362.  divs.l LASTLEN-2,d5
  3363.  
  3364.  move.l d5,a3
  3365.  move.l d4,d5
  3366.  
  3367.  clr.w d3
  3368.  clr.w d6
  3369.  sub.l d3,d6
  3370.  divs.l d0,d6
  3371.  move.l d6,a4
  3372.  
  3373.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3374.  move.w (a0)+,d4
  3375.  swap d7
  3376.  clr.w d7
  3377.  swap d4
  3378.  clr.w d4
  3379.  sub.l d4,d7
  3380.  divs.l d0,d7
  3381.  move.l d7,a5
  3382.  
  3383. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  3384. ; swap d7
  3385. ; clr.w d7
  3386.  move.w (a0)+,d7
  3387. ; swap d5
  3388. ; clr.w d5
  3389. ; sub.l d5,d7
  3390. ; divs.l d0,d7
  3391. ; move.l d7,a6
  3392.  
  3393.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3394.  swap d7
  3395.  clr.w d7
  3396.  move.w (a0)+,d6
  3397.  swap d6
  3398.  clr.w d6
  3399.  sub.l d6,d7
  3400.  divs.l d0,d7
  3401.  
  3402.  lsl.l #8,d6
  3403.  lsl.l #8,d7
  3404.  
  3405.  move.w RIGHTBRIGHT,d7
  3406.  move.l d7,a6
  3407.  
  3408.  move.l a0,-(a7)
  3409.  move.l d1,-(a7)
  3410.  move.l #TEXTURES,a0
  3411.  move.w TEXTUREADD,d7
  3412.  bge.s .okaddtes4
  3413.  and.w #$7fff,d7
  3414.  add.l #65536*4,a0
  3415. .okaddtes4:
  3416.  ext.l d7
  3417. ; add.l d7,d7
  3418.  asl.l #8,d7
  3419.  add.l d7,a0
  3420.  move.w #0,d7
  3421.  
  3422.  move.w LEFTBRIGHT,d6
  3423.  
  3424.  
  3425.  subq #1,d0
  3426.  swap d0
  3427.  move.w HIGHPOLY,d0
  3428.  swap d0
  3429.  
  3430.  
  3431. ; d0=xdist
  3432. ; d2=U    a1=DU
  3433. ; d3=V  a4=DV
  3434. ; d4=X  a5=DX
  3435. ; d5=Y  a6=DY
  3436. ; d6=Z  a3=DZ
  3437.  
  3438. ; d0= polynum : polynum : counter : counter
  3439. ; d1= scratch : scratch : scratch : scratch
  3440. ; d2= u : uacc : sv : svacc
  3441. ; d3= v : v : vacc : vacc
  3442. ; d4= x : x : xacc : xacc
  3443. ; d5= su : su : suacc : suacc
  3444. ; d6= z : zacc : bright : brightacc
  3445. ; d7= scratch : scratch : scratch : scratch
  3446.  
  3447. ; a0= textures
  3448. ; a1= uspeed : uspeed : suspeed : suspeed
  3449. ; a2= screen pointer
  3450. ; a3= svspeed : svspeed : svspeed : svspeed
  3451. ; a4= vspeed : vspeed : vspeed : vspeed
  3452. ; a5= xspeed : xspeed : xspeed : xspeed
  3453. ; a6= zspeed : zspeed :brightspeed : brightspeed
  3454. ; a7= shadowmap pointer
  3455.  
  3456.  move.w d2,-(a7)
  3457.  move.l d5,-(a7)
  3458.  move.l a3,-(a7)
  3459.  
  3460.  move.w #0,d2
  3461.  move.l #0,d5
  3462.  move.l #0,a3
  3463.  
  3464.  move.w FIRSTLEN,d0
  3465.  subq #1,d0
  3466.  bsr STARTLINE
  3467.  
  3468.  
  3469.  move.l (a7)+,a3
  3470.  move.l (a7)+,d5
  3471.  move.w (a7)+,d2
  3472.  
  3473.  move.w LASTLEN,d0
  3474.  subq #1,d0
  3475.  
  3476.  bsr STARTLINE
  3477.  
  3478.  
  3479.  move.l (a7)+,d1
  3480.  move.l (a7)+,a0
  3481.  move.l (a7)+,a2
  3482.  
  3483.  bra .noline
  3484.  
  3485.  
  3486. .bothaway:
  3487.  
  3488.  move.w #0,6+RIGHTUVS-LEFTUVS(a0)
  3489.  move.w #0,6(a0)
  3490.  
  3491. .bothtowards:
  3492.  
  3493.  ifne PH
  3494.  tst.w 16+RIGHTUVS-LEFTUVS(a0)
  3495.  blt.s .okone
  3496.  tst.w 16(a0)
  3497.  blt.s .okone
  3498.  
  3499.  move.w #0,2(a0)
  3500.  move.w #0,2+RIGHTUVS-LEFTUVS(a0)
  3501.  move.w #0,14(a0)
  3502.  move.w #0,14+RIGHTUVS-LEFTUVS(a0)
  3503.  
  3504. .okone:
  3505.  endc
  3506.  
  3507.  move.l RIGHTUVS-LEFTUVS(a0),d7
  3508.  move.l (a0)+,d2 
  3509.  
  3510.  and.l #$ffffff,d2
  3511.  and.l #$ffffff,d7
  3512.  
  3513.  moveq #0,d3
  3514.  moveq #0,d5
  3515.  move.w d2,d3
  3516.  move.w d7,d5
  3517.  swap d3
  3518.  swap d5
  3519.  sub.l d3,d5
  3520.  divs.l d0,d5
  3521.  asr.l #8,d5
  3522.  move.w d5,RIGHTBRIGHT
  3523.  asr.l #8,d3
  3524.  move.w d3,LEFTBRIGHT
  3525.  
  3526.  clr.w d2
  3527.  clr.w d7
  3528.  sub.l d2,d7
  3529.  asl.l #8,d2
  3530.  divs.l d0,d7
  3531.  asl.l #8,d7
  3532.  
  3533.  move.l RIGHTUVS-LEFTUVS(a0),d6 
  3534.  move.l (a0)+,d3
  3535.  
  3536.  moveq #0,d4
  3537.  moveq #0,d5
  3538.  
  3539.  move.w d6,d5
  3540.  move.w d3,d4
  3541.  move.b #0,d4
  3542.  move.b #0,d5
  3543.  
  3544.  sub.l d4,d5
  3545.  divs.l d0,d5
  3546.  
  3547.  move.w d4,d2
  3548.  move.w d5,d7
  3549.  move.l d7,a1
  3550.  moveq #0,d4
  3551.  moveq #0,d5
  3552.  
  3553.  move.b d6,d5
  3554.  move.b d3,d4
  3555.  
  3556.  swap d5
  3557.  swap d4
  3558.  
  3559.  sub.l d4,d5
  3560.  divs.l d0,d5
  3561.  
  3562.  move.l d5,a3
  3563.  move.l d4,d5
  3564.  
  3565.   
  3566.  clr.w d3
  3567.  clr.w d6
  3568.  sub.l d3,d6
  3569.  divs.l d0,d6
  3570.  
  3571.  asr.l #8,d3        ; XX XX vpos vacc
  3572.  asr.l #8,d6         ; XX XX vspeed vspeed
  3573.  
  3574. ; move.l d6,a4
  3575.  
  3576.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3577.  move.w (a0)+,d4
  3578.  swap d7
  3579.  clr.w d7
  3580.  swap d4
  3581.  clr.w d4
  3582.  sub.l d4,d7
  3583.  divs.l d0,d7
  3584.  asl.l #8,d4
  3585.  asl.l #8,d7
  3586.  move.w d3,d4
  3587.  move.w d6,d7
  3588.  move.l d7,a5
  3589.  
  3590. ; move.w RIGHTUVS-LEFTUVS(a0),d7
  3591. ; swap d7
  3592. ; clr.w d7
  3593.  move.w (a0)+,d7
  3594. ; swap d5
  3595. ; clr.w d5
  3596. ; sub.l d5,d7
  3597. ; divs.l d0,d7
  3598. ; move.l d7,a6
  3599.  
  3600.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3601.  swap d7
  3602.  clr.w d7
  3603.  move.w (a0)+,d6
  3604.  swap d6
  3605.  clr.w d6
  3606.  sub.l d6,d7
  3607.  divs.l d0,d7
  3608.  
  3609.  lsl.l #8,d6
  3610.  lsl.l #8,d7
  3611.  
  3612.  move.w RIGHTBRIGHT,d7
  3613.  move.l d7,a6
  3614.  
  3615.  moveq #0,d7
  3616.  moveq #0,d3
  3617.  move.w RIGHTUVS-LEFTUVS(a0),d7
  3618.  move.w (a0)+,d3
  3619.  
  3620.  addq #2,a0
  3621.  
  3622.  sub.w d3,d7
  3623.  swap d3
  3624.  swap d7
  3625.  divs.l d0,d7
  3626.  
  3627.  move.l d7,a4
  3628.  
  3629.  
  3630.  move.l a0,-(a7)
  3631.  move.l d1,-(a7)
  3632.  move.l #TEXTURES,a0
  3633.  move.w TEXTUREADD,d7
  3634.  bge.s .okaddtes5
  3635.  and.w #$7fff,d7
  3636.  add.l #65536*4,a0
  3637. .okaddtes5:
  3638.  ext.l d7
  3639.  asl.l #8,d7
  3640.  add.l d7,a0
  3641.  move.w #0,d7
  3642.  
  3643.  move.w LEFTBRIGHT,d6
  3644.  
  3645.  subq #1,d0
  3646.  swap d0
  3647.  move.w HIGHPOLY,d0
  3648.  swap d0
  3649.  
  3650.  
  3651. ; d0=xdist
  3652. ; d2=U    a1=DU
  3653. ; d3=V  a4=DV
  3654. ; d4=X  a5=DX
  3655. ; d5=Y  a6=DY
  3656. ; d6=Z  a3=DZ
  3657.  
  3658. ; d0= polynum : polynum : counter : counter
  3659. ; d1= scratch : scratch : scratch : scratch
  3660. ; d2= u : uacc : sv : svacc
  3661. ; d3= pxpos : pxpos : pxacc : pxacc
  3662. ; d4= x : xacc : v : vacc
  3663. ; d5= su : su : suacc : suacc
  3664. ; d6= z : zacc : pypos : pyacc
  3665. ; d7= scratch : scratch : scratch : scratch
  3666.  
  3667. ; a0= textures
  3668. ; a1= uspeed : uspeed : suspeed : suspeed
  3669. ; a2= screen pointer
  3670. ; a3= svspeed : svspeed : svspeed : svspeed
  3671. ; a4= pxspd : pxspd : pxspd : pxspd
  3672. ; a5= xspeed : xspeed : vspeed : vspeed
  3673. ; a6= zspeed : zspeed : pyspeed : pyspeed
  3674. ; a7= shadowmap pointer
  3675.  
  3676.  move.w d0,-(a7)
  3677. ;
  3678.  bsr STARTLINE
  3679.  
  3680.  move.w (a7)+,d0
  3681.  move.l (a7)+,d1
  3682.  move.l (a7)+,a0
  3683.  move.l (a7)+,a2
  3684.  
  3685.  ifne DEPTHBALL!POLYGONDEPTH
  3686.  
  3687.  move.l a2,a5
  3688.  move.l DEPTHPTR,a3
  3689.  move.l #LINEBUFFER,a6
  3690.  move.w LEFTX,d4
  3691.  add.w d4,a6
  3692.  add.w d4,a5
  3693.  lea (a3,d4.w*4),a3
  3694.  
  3695.  move.l ZSPTR,a4
  3696.  move.w RIGHTZS-LEFTZS(a4),d7
  3697.  move.w (a4)+,d2
  3698.  move.l a4,ZSPTR
  3699.  
  3700.  
  3701.  sub.w d2,d7
  3702.  swap d2
  3703.  swap d7
  3704.  clr.w d2
  3705.  clr.w d7
  3706.  addq #1,d0
  3707.  ext.l d0
  3708.  
  3709.  divs.l d0,d7
  3710.  
  3711.  subq #1,d0
  3712.  
  3713. .dodepth:
  3714.  
  3715.  ifne POLYGONDEPTH
  3716.  
  3717.  move.l (a3)+,d6
  3718.  cmp.l d2,d6
  3719.  blt.s .dontplot
  3720.  
  3721.  move.l d2,-4(a3)
  3722.  move.b (a6),(a5)
  3723.  
  3724. .dontplot:
  3725.  addq #1,a6
  3726.  addq #1,a5
  3727.  
  3728.  endc
  3729.  ifeq POLYGONDEPTH
  3730.  
  3731.  move.l d2,(a3)+
  3732.  
  3733.  endc
  3734.  add.l d7,d2
  3735.  dbra d0,.dodepth
  3736.  
  3737.  endc
  3738.  
  3739. .noline:
  3740.  add.l #320*4,DEPTHPTR
  3741.  add.w #320,a2
  3742.  
  3743.  swap d1
  3744.  dbra d1,DOAHORLINEGOUR
  3745.  
  3746.  bra NOPOLYGON
  3747.  
  3748.  
  3749.  
  3750.  
  3751.  
  3752. *******************************
  3753. STARTLINE:
  3754.  
  3755.  move.l a7,SAVESTACK
  3756.  move.l #SHADOWBUFFER,a7
  3757.  
  3758.  moveq #0,d1
  3759.  swap d6
  3760.  move.w d6,d1
  3761.  move.l d4,d7
  3762.  swap d7
  3763.  lsr.w #8,d7
  3764.  move.b d7,d1
  3765.  swap d6
  3766.  
  3767.  swap d0
  3768.  moveq #0,d7
  3769.  move.b (a7,d1.l*2),d7
  3770.  cmp.w d7,d0
  3771.  ble .startlight
  3772.  swap d0
  3773.  bra INTHEDARKGOUR
  3774. .startlight:
  3775.  swap d0
  3776.  bra INTHELIGHTGOUR 
  3777. .startdark:
  3778. ***********************************
  3779.  
  3780.  
  3781.  
  3782. PENUMBRAGOUR:
  3783.  moveq #0,d1
  3784.  swap d6
  3785.  move.w d6,d1
  3786.  move.l d4,d7
  3787.  lsr.l #8,d7
  3788.  swap d7
  3789.  move.b d7,d1
  3790.  swap d6
  3791.  add.l a5,d4
  3792.  add.l a6,d6
  3793.  add.l a3,d5
  3794.  
  3795.  swap d0
  3796.  moveq #0,d7
  3797.  move.b (a7,d1.l*2),d7
  3798.  cmp.w d7,d0
  3799.  ifne SHADOWMAP
  3800.  ble INTOLIGHTGOUR
  3801.  endc
  3802.  ifeq SHADOWMAP
  3803.  bra INTOLIGHTGOUR
  3804.  endc
  3805.  bra.s INTODARKGOUR
  3806.  
  3807. INTHEDARKGOUR:
  3808.  moveq #0,d1
  3809.  swap d6
  3810.  move.w d6,d1
  3811.  move.l d4,d7
  3812.  swap d7
  3813.  asr.w #8,d7
  3814.  move.b d7,d1
  3815.  swap d6
  3816.  add.l a5,d4
  3817.  add.l a6,d6
  3818.  add.l a3,d5
  3819.  
  3820.  swap d0
  3821.  moveq #0,d7
  3822.  move.b (a7,d1.l*2),d7
  3823.  cmp.w d7,d0
  3824.  ifne SHADOWMAP
  3825.  ble.s INTOPENUMGOUR
  3826.  endc
  3827.  ifeq SHADOWMAP
  3828.  bra INTOLIGHTGOUR
  3829.  endc
  3830. INTODARKGOUR:
  3831.  swap d0
  3832.  
  3833. ;**********************
  3834. ; moveq #0,d7
  3835. ;********************** 
  3836.  
  3837.  swap d2
  3838.  move.w d2,d1
  3839.  move.w d4,d7
  3840.  lsr.w #8,d7
  3841.  move.b d7,d1
  3842.  swap d2
  3843.  add.l a1,d2
  3844.  add.l a4,d3
  3845.  
  3846.  move.l #(31*32*256),d7
  3847.  move.b 1(a0,d1.w*4),d7
  3848.  bra DARKplottt
  3849.  
  3850. .noplottt
  3851.  addq #1,a2
  3852.  dbra d0,INTHEDARKGOUR
  3853.  bra DONEDONEBUM
  3854.  
  3855. INTOPENUMGOUR:
  3856.  swap d0
  3857.  
  3858. *********************
  3859. ; moveq #0,d7
  3860. *****************
  3861.  
  3862.  swap d2
  3863.  move.w d2,d1
  3864.  move.w d4,d7
  3865.  lsr.w #8,d7
  3866.  move.b d7,d1
  3867.  swap d2
  3868.  add.l a1,d2
  3869.  add.l a4,d3
  3870.  
  3871.  move.l (a0,d1.w*4),d1
  3872.  moveq #0,d7
  3873.  move.w d6,d7
  3874.  swap d3
  3875.  move.b d3,d7
  3876.  add.w d1,d7
  3877.  swap d3
  3878.  
  3879.  move.b 1(a7,d7.l*2),d7
  3880.  lsl.w #8,d7
  3881.  
  3882. ; sub.w #$1c00,d7
  3883.  asr.w #1,d7
  3884. ; add.w #$1c00,d7
  3885.  neg.w d7
  3886.  add.w #$1f00,d7
  3887.  sub.b d7,d7
  3888.  
  3889.  asl.l #5,d7
  3890.  swap d1
  3891.  move.b d1,d7
  3892.  
  3893.  
  3894.  bra.s PENUMplottt
  3895.  
  3896. .noplottt
  3897.  addq #1,a2
  3898.  dbra d0,PENUMBRAGOUR
  3899.  bra DONEDONEBUM
  3900.  
  3901.  
  3902. INTHELIGHTGOUR:
  3903.  
  3904.  moveq #0,d1
  3905.  swap d6
  3906.  move.w d6,d1
  3907.  move.l d4,d7
  3908.  swap d7
  3909.  lsr.w #8,d7
  3910.  move.b d7,d1
  3911.  swap d6
  3912.  add.l a5,d4
  3913.  add.l a6,d6
  3914.  add.l a3,d5
  3915.  
  3916.  swap d0
  3917.  moveq #0,d7
  3918.  move.b (a7,d1.l*2),d7
  3919.  cmp.w d7,d0
  3920.  
  3921.  
  3922.  ifne SHADOWMAP
  3923.  bgt.s INTOPENUMGOUR
  3924.  endc
  3925.  
  3926. INTOLIGHTGOUR:
  3927.  swap d0
  3928.  
  3929.  swap d2
  3930.  move.w d2,d1
  3931.  move.w d4,d7
  3932.  asr.w #8,d7
  3933.  move.b d7,d1
  3934.  swap d2
  3935.  
  3936.  move.l (a0,d1.w*4),d1        ; SPEC COL OFX OFY
  3937.  
  3938.  add.l a1,d2
  3939.  add.l a4,d3
  3940.  
  3941.  bra.s LIGHTPLOTT
  3942. .noplottt:
  3943.  addq #1,a2
  3944.  dbra d0,INTHELIGHTGOUR
  3945. FLIBBLEY:
  3946.  bra.s DONEDONEBUM
  3947.  
  3948. PENUMplottt
  3949.  move.b GOURPAL(pc,d7.l),(a2)+
  3950.  dbra d0,PENUMBRAGOUR
  3951.  bra.s DONEDONEBUM
  3952.  
  3953. DARKplottt
  3954.  move.b GOURPAL(pc,d7.l),(a2)+
  3955.  dbra d0,INTHEDARKGOUR
  3956.  bra.s DONEDONEBUM
  3957.  
  3958. LIGHTPLOTT:
  3959.  moveq #0,d7
  3960.  
  3961.  move.w d2,d7
  3962.  swap d5
  3963.  move.b d5,d7
  3964.  swap d5
  3965.  
  3966.  ifne BUMPSPEC
  3967.  add.w d1,d7    ; coord in spec map
  3968.  endc
  3969.  
  3970.  swap d1
  3971.  ifeq SPECMAP
  3972.  and.w #$ff,d1
  3973.  endc
  3974.  
  3975.  move.b 1(a7,d7.l*2),d7    ; specular value of point.
  3976.  lsl.w #8,d7
  3977.  
  3978.  ifne SPECULAR 
  3979.  add.w d7,d1
  3980.  endc
  3981.  
  3982.  ifeq SPECULAR
  3983.  tst.w d1
  3984.  endc
  3985.  
  3986.  bgt.s .okshiney
  3987.  and.w #$ff,d1
  3988. .okshiney
  3989.  
  3990.  move.w d6,d7
  3991.  swap d3
  3992.  move.b d3,d7
  3993.  swap d1
  3994.  
  3995.  ifne BUMPPHONG
  3996.  add.w d1,d7
  3997.  endc
  3998.  
  3999.  clr.w d1
  4000.  swap d1
  4001.  move.b 1(a7,d7.l*2),d7 ; brightness of point
  4002.  neg.b d7
  4003.  add.b #31,d7
  4004.  and.w #$ff,d7
  4005.  swap d7
  4006.  lsr.l #3,d7
  4007.  swap d3
  4008.  add.l d7,d1
  4009.  
  4010.  move.b GOURPAL(pc,d1.l),(a2)+
  4011.  dbra d0,INTHELIGHTGOUR
  4012. DONEDONEBUM:
  4013.  move.l SAVESTACK,a7
  4014.  rts
  4015.  
  4016. GOURPAL: incbin "ab3:includes/bigshadow.pal"
  4017.  
  4018.  
  4019.  
  4020.  
  4021. LEFTSHINEV: dc.l 0
  4022. RIGHTSHINEV: dc.l 0
  4023. LEFTSHINEU: dc.l 0
  4024. RIGHTSHINEU: dc.l 0
  4025.  
  4026. TOPPTR: dc.l 0
  4027. TOPPTNUM: dc.w 0
  4028. BOTPTNUM: dc.w 0
  4029. LEFTBRIGHT: dc.w 0
  4030. RIGHTBRIGHT: dc.l 0
  4031. LEFTSPEC: dc.w 0
  4032. RIGHTSPEC: dc.w 0
  4033.  
  4034. ***********************************************
  4035.     
  4036. SIMPLECALCLINE:
  4037.  
  4038.  ifne DEPTHQUEUE
  4039.  
  4040.  movem.l d0/d1,-(a7)
  4041.  
  4042.  move.l #ONSCREENPTS,a1
  4043.  
  4044.  move.w 2(a1,d0.w*4),d2        ;fy
  4045.  move.w 2(a1,d1.w*4),d7        ;sy
  4046.  
  4047.  move.l #RIGHTZS,a3
  4048.  asr.w #2,d2
  4049.  asr.w #2,d7
  4050.  cmp.w d2,d7
  4051.  beq .noline
  4052.  bgt.s .lineonright
  4053.  
  4054.  move.l #LEFTZS,a3
  4055.  exg d0,d1
  4056.  exg d2,d7 
  4057. .lineonright:
  4058.  
  4059.  move.l #ROTATEDPTS,a2
  4060.  muls #10,d0
  4061.  muls #10,d1
  4062.  move.w 8(a2,d0.w),d3
  4063.  move.w 8(a2,d1.w),d4
  4064.  
  4065.  sub.w d3,d4
  4066.  sub.w d2,d7
  4067.  
  4068.  ext.l d7
  4069.  swap d3
  4070.  clr.w d3
  4071.  swap d4
  4072.  clr.w d4
  4073.  divs.l d7,d4
  4074.  
  4075.  subq #1,d7
  4076.  lea (a3,d2.w*2),a3
  4077.  
  4078. .putindist:
  4079.  swap d3
  4080.  move.w d3,(a3)+
  4081.  swap d3
  4082.  add.l d4,d3
  4083.  dbra d7,.putindist
  4084.  
  4085.  movem.l (a7)+,d0/d1
  4086.  
  4087.  bra RESTOFDATA
  4088.  
  4089. .noline:
  4090.  movem.l (a7)+,d0/d1
  4091.  rts
  4092.  
  4093. RESTOFDATA:
  4094.  
  4095.  endc
  4096.  
  4097.  move.l #ONSCREENPTS,a1
  4098.  
  4099.  move.w 2(a1,d0.w*4),d2        ;fy
  4100.  move.w 2(a1,d1.w*4),d7        ;sy
  4101.  
  4102.  move.l #RIGHTUVS,a3
  4103.  asr.w #2,d2
  4104.  asr.w #2,d7
  4105.  cmp.w d2,d7 
  4106.  beq .noline
  4107.  
  4108.  bgt.s .lineonright
  4109. .lineonleft:
  4110.  move.l #LEFTUVS,a3
  4111.  exg d0,d1
  4112.  exg d2,d7
  4113.  
  4114. .lineonright:
  4115.  move.w d0,TOPPTNUM
  4116.  move.w d1,BOTPTNUM
  4117.  
  4118.  sub.w d2,d7
  4119.  move.w d2,d3
  4120.  muls #20,d3
  4121.  asl.w #4,d2
  4122.  add.w d3,a3
  4123.  move.l a3,TOPPTR
  4124.  
  4125.  move.w d7,YDIFF
  4126.  
  4127.  move.w (a1,d0.w*4),d3        ;fx
  4128.  move.w (a1,d1.w*4),d7        ;sx
  4129.  
  4130.  sub.w d3,d7
  4131.  swap d3
  4132.  swap d7
  4133.  clr.w d3
  4134.  clr.w d7
  4135.  divs.l YDIFF-2,d7
  4136.  move.l d7,a0    ; dx
  4137.  
  4138.  move.l #UVCOORDS,a2
  4139.  move.l #SHADOWPTS,a1
  4140.  
  4141.  move.w (a2,d0.w*4),d4
  4142.  move.w 2(a2,d0.w*4),d5
  4143.  move.w (a2,d1.w*4),d6
  4144.  move.w 2(a2,d1.w*4),d7
  4145.  
  4146.  sub.w d4,d6
  4147.  sub.w d5,d7
  4148.  swap d4
  4149.  swap d5
  4150.  clr.w d4
  4151.  clr.w d5
  4152.  swap d6
  4153.  swap d7
  4154.  clr.w d6
  4155.  clr.w d7
  4156.  
  4157.  divs.l YDIFF-2,d6
  4158.  divs.l YDIFF-2,d7
  4159.  
  4160.  move.l d6,a4
  4161.  move.l d7,a5
  4162.  
  4163.  muls #10,d0
  4164.  muls #10,d1
  4165.  move.l (a1,d0.w),d6
  4166.  
  4167.  move.l (a1,d1.w),d7
  4168.  asl.l #5,d6
  4169.  asl.l #5,d7
  4170.  sub.l d6,d7
  4171.  divs.l YDIFF-2,d7
  4172.  move.l d7,a2
  4173.  move.l d6,a6
  4174.  
  4175.  move.l 4(a1,d0.w),d6
  4176.  move.l 4(a1,d1.w),d7
  4177.  asl.l #5,d6
  4178.  asl.l #5,d7
  4179.  sub.l d6,d7
  4180.  divs.l YDIFF-2,d7
  4181.  exg d7,a6
  4182.  exg d7,d6
  4183.  
  4184.  move.w 8(a1,d0.w),d0
  4185.  move.w 8(a1,d1.w),d1
  4186.  swap d0
  4187.  swap d1
  4188.  clr.w d0
  4189.  clr.w d1
  4190.  asr.l #2,d0
  4191.  asr.l #2,d1
  4192.  sub.l d0,d1
  4193.  divs.l YDIFF-2,d1
  4194.  move.l d1,a1
  4195.  move.l YDIFF-2,d1
  4196.  subq #1,d1
  4197.  
  4198. ; d3=sx a0=dsx
  4199. ; d4=u a4=du
  4200. ; d5=v a5=dv
  4201. ; d6=x a2=dx
  4202. ; d7=y a6=dy
  4203. ; d0=z a1=dz
  4204. ; d1=dsy
  4205.  
  4206.  
  4207.  add.l #128*65536,d6
  4208.  add.l #128*65536,d7
  4209.  add.l #128*65536,d0
  4210.  
  4211. .PUTINLINE:
  4212.  swap d3
  4213.  move.w d3,(a3)+
  4214.  swap d3
  4215.  add.l a0,d3
  4216.  move.l d4,(a3)+
  4217.  add.l a4,d4
  4218.  move.l d5,(a3)+
  4219.  swap d6
  4220.  add.l a5,d5
  4221.  move.w d6,(a3)+
  4222.  swap d6
  4223.  swap d7
  4224.  add.l a2,d6
  4225.  move.w d7,(a3)+
  4226.  swap d7
  4227.  swap d0
  4228.  add.l a6,d7
  4229.  move.w d0,(a3)+
  4230.  addq #4,a3
  4231.  swap d0
  4232.  add.l a1,d0
  4233.  dbra d1,.PUTINLINE
  4234.  
  4235.  tst.b Gouraud
  4236.  beq .noline
  4237.  
  4238.  move.w TOPPTNUM,d0
  4239.  move.w BOTPTNUM,d1
  4240.  move.l TOPPTR,a3
  4241.  moveq #0,d6
  4242.  move.w YDIFF,d6
  4243.  
  4244.  move.l #SPECBRIGHTS,a2
  4245.  
  4246.  moveq #0,d2
  4247.  moveq #0,d3
  4248.  move.b (a2,d0.w*4),d2
  4249.  move.b 1(a2,d0.w*4),d3
  4250.  sub.w #128,d2
  4251.  sub.w #128,d3
  4252.  
  4253.  move.w d2,d4
  4254.  move.w d3,d5
  4255.  muls ACOS,d2
  4256.  muls ASIN,d3
  4257.  sub.l d3,d2
  4258.  muls ASIN,d4
  4259.  muls ACOS,d5
  4260.  add.l d5,d4
  4261.  asl.l #2,d2
  4262.  swap d2
  4263.  asl.l #2,d4
  4264.  swap d4
  4265.  
  4266.  add.w #128,d2
  4267.  add.w #128,d4
  4268.  move.w d2,FSX
  4269.  move.w d4,FSY
  4270.  
  4271.  moveq #0,d2
  4272.  moveq #0,d3
  4273.  move.b (a2,d1.w*4),d2
  4274.  move.b 1(a2,d1.w*4),d3
  4275.  sub.w #128,d2
  4276.  sub.w #128,d3
  4277.  
  4278.  move.w d2,d4
  4279.  move.w d3,d5
  4280.  muls ACOS,d2
  4281.  muls ASIN,d3
  4282.  sub.l d3,d2
  4283.  muls ASIN,d4
  4284.  muls ACOS,d5
  4285.  add.l d5,d4
  4286.  asl.l #2,d2
  4287.  swap d2
  4288.  asl.l #2,d4
  4289.  swap d4
  4290.  
  4291.  add.w #128,d2
  4292.  add.w #128,d4
  4293.  move.w d2,SSX
  4294.  move.w d4,SSY
  4295.  
  4296.  
  4297.  move.w 2(a2,d0.w*4),d2
  4298.  move.w 2(a2,d1.w*4),d3
  4299.  
  4300.  asr.w #4,d2
  4301.  asr.w #4,d3
  4302.  
  4303.  bra .bothtowards
  4304.  
  4305.  tst.w d2
  4306.  blt .firsttowards
  4307.  bgt.s .firstaway
  4308.  
  4309.  tst.w d3
  4310.  ble .bothtowards
  4311.  bra .bothaway
  4312.  
  4313. .firstaway
  4314.  tst.w d3
  4315.  blt .sectowards
  4316.  bra .bothaway
  4317.  
  4318. .firsttowards:
  4319.  tst.w d3
  4320.  ble .bothtowards
  4321.  
  4322. ; First one is towards, the second away.
  4323. ; Do the line in two bits: one heading
  4324. ; from the first point to the rim, the
  4325. ; other heading from the rim to the second
  4326. ; point and flagged as behind.
  4327.  
  4328.  move.w d6,d7    ; total length to draw
  4329.  move.w d2,FIRSTY
  4330.  move.w d3,LASTY
  4331.  
  4332.  neg.w d2
  4333.  add.w d2,d3     ; total change in Y
  4334.  
  4335.  bra.s .onetowards
  4336.  
  4337. .sectowards:
  4338.  move.w d6,d7    ; total length to draw
  4339.  move.w d2,FIRSTY
  4340.  move.w d3,LASTY
  4341.  neg.w d3
  4342.  add.w d2,d3
  4343.  
  4344. .onetowards:
  4345.  
  4346.  muls d2,d6
  4347.  divs d3,d6    ; length of first bit of line.
  4348.  
  4349.  ext.l d6
  4350.  ext.l d7
  4351.  
  4352.  move.w d6,FIRSTLEN
  4353.  sub.l d6,d7
  4354.  move.w d7,LASTLEN
  4355.  
  4356.  add.l d7,d6
  4357.  
  4358.  move.w FIRSTY,d2
  4359.  move.w LASTY,d3
  4360.  swap d2
  4361.  clr.w d2
  4362.  swap d3
  4363.  clr.w d3
  4364.  sub.l d2,d3
  4365.  divs.l d6,d3
  4366.  move.l d3,a6
  4367.  move.l d2,d7
  4368.  
  4369.  moveq #0,d2
  4370.  moveq #0,d3
  4371.  moveq #0,d4
  4372.  moveq #0,d5
  4373.  move.b (a2,d0.w*4),d2
  4374.  move.b 1(a2,d0.w*4),d3
  4375.  
  4376.  move.w d2,FIRSTU
  4377.  move.w d3,FIRSTV
  4378.  
  4379.  move.w d2,d4
  4380.  move.w d3,d5
  4381.  sub.w #128,d2
  4382.  sub.w #128,d3
  4383.  muls d2,d2
  4384.  muls d3,d3
  4385.  add.l d3,d2
  4386.  jsr CALCSQROOT
  4387.  
  4388.  tst.w d2
  4389.  beq.s .nochng
  4390.  
  4391.  sub.w #128,d4
  4392.  sub.w #128,d5
  4393.  muls #127,d4
  4394.  muls #127,d5
  4395.  divs d2,d4
  4396.  divs d2,d5
  4397.  add.w #128,d4
  4398.  add.w #128,d5
  4399.  
  4400. .nochng:
  4401.  
  4402.  move.w d4,MIDU
  4403.  move.w d5,MIDV
  4404.  
  4405.  move.b (a2,d1.w*4),d4
  4406.  move.b 1(a2,d1.w*4),d5
  4407.  move.w d4,SECU
  4408.  move.w d5,SECV
  4409.  
  4410. ; move.w d4,d2
  4411. ; move.w d5,d3
  4412. ;
  4413. ; sub.w #128,d2
  4414. ; sub.w #128,d3
  4415. ; muls d2,d2
  4416. ; muls d3,d3
  4417. ; add.l d3,d2
  4418. ; jsr CALCSQROOT
  4419. ;
  4420. ; tst.w d2
  4421. ; beq.s .nochng2
  4422. ;
  4423. ; sub.w #128,d4
  4424. ; sub.w #128,d5
  4425. ; muls #127,d4
  4426. ; muls #127,d5
  4427. ; divs d2,d4
  4428. ; divs d2,d5
  4429. ; add.w #128,d4
  4430. ; add.w #128,d5
  4431. ; 
  4432. ;.nochng2:
  4433. ;
  4434. ; add.w MIDU,d4
  4435. ; add.w MIDV,d5
  4436. ; asr.w #1,d4
  4437. ; asr.w #1,d5
  4438. ; move.w d4,MIDU
  4439. ; move.w d4,MIDV
  4440.  
  4441.  move.l #NORMBRIGHTS,a2
  4442.  move.w (a2,d0.w*2),d0
  4443.  move.w (a2,d1.w*2),d1
  4444.  
  4445.  sub.w d0,d1
  4446.  swap d1
  4447.  swap d0
  4448.  divs.l d6,d1
  4449.  
  4450.  move.w FIRSTLEN,d6
  4451.  beq.s .nofirstbit
  4452.  ext.l d6
  4453.  
  4454.  moveq #0,d2
  4455.  moveq #0,d3
  4456.  moveq #0,d4
  4457.  moveq #0,d5
  4458.  move.w FIRSTU,d2
  4459.  move.w MIDU,d3
  4460.  move.w FIRSTV,d4
  4461.  move.w MIDV,d5
  4462.  
  4463.  sub.w d2,d3
  4464.  swap d2
  4465.  swap d3
  4466.  divs.l d6,d3
  4467.  move.l d3,a4
  4468.  
  4469.  sub.w d4,d5
  4470.  swap d4
  4471.  swap d5
  4472.  divs.l d6,d5
  4473.  move.l d5,a5
  4474.  
  4475.  bsr DOABITOFLINE
  4476. .nofirstbit:
  4477.  
  4478.  move.w LASTLEN,d6
  4479.  beq.s .nosecbit
  4480.  ext.l d6
  4481.  
  4482.  moveq #0,d2
  4483.  moveq #0,d3
  4484.  moveq #0,d4
  4485.  moveq #0,d5
  4486.  move.w MIDU,d2
  4487.  move.w SECU,d3
  4488.  move.w MIDV,d4
  4489.  move.w SECV,d5
  4490.  
  4491.  sub.w d2,d3
  4492.  swap d2
  4493.  swap d3
  4494.  divs.l d6,d3
  4495.  move.l d3,a4
  4496.  
  4497.  sub.w d4,d5
  4498.  swap d4
  4499.  swap d5
  4500.  divs.l d6,d5
  4501.  move.l d5,a5
  4502.  
  4503.  bsr DOABITOFLINE
  4504. .nosecbit:
  4505.  
  4506.  bra .noline
  4507.  
  4508. .bothaway
  4509.  
  4510. ; Both are away, so do it simply.
  4511.  
  4512. .bothtowards:
  4513.  
  4514. ; Both are towards, so do it simply and flag all
  4515. ; points as towards.
  4516.  
  4517.  swap d2
  4518.  clr.w d2
  4519.  swap d3
  4520.  clr.w d3
  4521.  sub.l d2,d3
  4522.  divs.l d6,d3
  4523.  move.l d3,a6
  4524.  move.l d2,d7
  4525.  
  4526.  moveq #0,d2
  4527.  moveq #0,d3
  4528.  moveq #0,d4
  4529.  moveq #0,d5
  4530. ; move.b (a2,d0.w*4),d2
  4531. ; move.b (a2,d1.w*4),d3
  4532. ; move.b 1(a2,d0.w*4),d4
  4533. ; move.b 1(a2,d1.w*4),d5
  4534.  
  4535.  move.w FSX,d2
  4536.  move.w SSX,d3
  4537.  move.w FSY,d4
  4538.  move.w SSY,d5
  4539.  
  4540.  sub.w d2,d3
  4541.  swap d2
  4542.  swap d3
  4543.  divs.l d6,d3
  4544.  move.l d3,a4
  4545.  
  4546.  sub.w d4,d5
  4547.  swap d4
  4548.  swap d5
  4549.  divs.l d6,d5
  4550.  move.l d5,a5
  4551.  
  4552.  move.l #NORMBRIGHTS,a2
  4553.  movem.l d2/d4,-(a7)
  4554.  
  4555.  moveq #0,d2
  4556.  moveq #0,d3
  4557.  move.b (a2,d0.w*2),d2
  4558.  move.b 1(a2,d0.w*2),d3
  4559.  sub.w #128,d2
  4560.  sub.w #128,d3
  4561.  
  4562.  move.w d2,d4
  4563.  move.w d3,d5
  4564.  muls ACOS,d2
  4565.  muls ASIN,d3
  4566.  sub.l d3,d2
  4567.  muls ASIN,d4
  4568.  muls ACOS,d5
  4569.  add.l d5,d4
  4570.  asl.l #2,d2
  4571.  swap d2
  4572.  asl.l #2,d4
  4573.  swap d4
  4574.  
  4575.  add.w #128,d2
  4576.  add.w #128,d4
  4577.  move.w d2,FSX
  4578.  move.w d4,FSY
  4579.  
  4580.  moveq #0,d2
  4581.  moveq #0,d3
  4582.  move.b (a2,d1.w*2),d2
  4583.  move.b 1(a2,d1.w*2),d3
  4584.  sub.w #128,d2
  4585.  sub.w #128,d3
  4586.  
  4587.  move.w d2,d4
  4588.  move.w d3,d5
  4589.  muls ACOS,d2
  4590.  muls ASIN,d3
  4591.  sub.l d3,d2
  4592.  muls ASIN,d4
  4593.  muls ACOS,d5
  4594.  add.l d5,d4
  4595.  asl.l #2,d2
  4596.  swap d2
  4597.  asl.l #2,d4
  4598.  swap d4
  4599.  
  4600.  add.w #128,d2
  4601.  add.w #128,d4
  4602.  move.w d2,SSX
  4603.  move.w d4,SSY
  4604.  
  4605.  moveq #0,d0
  4606.  moveq #0,d1
  4607.  moveq #0,d3
  4608.  moveq #0,d5
  4609.  
  4610.  move.w FSY,d3
  4611.  move.w SSY,d5
  4612.  move.w FSX,d0
  4613.  move.w SSX,d1
  4614.  
  4615.  ext.l d0
  4616.  ext.l d1
  4617.  sub.w d0,d1
  4618.  swap d1
  4619.  swap d0
  4620.  divs.l d6,d1
  4621.  
  4622.  ext.l d3
  4623.  ext.l d5
  4624.  sub.w d3,d5
  4625.  swap d5
  4626.  swap d3
  4627.  divs.l d6,d5
  4628.  
  4629.  movem.l (a7)+,d2/d4
  4630.  
  4631.  move.l d6,-(a7)
  4632.  bsr DOABITOFLINE
  4633.  move.l (a7)+,d6
  4634.  
  4635.  move.w TOPPTNUM,d0
  4636.  move.w BOTPTNUM,d1
  4637.  move.l TOPPTR,a3
  4638.  move.l #NORMVECTS,a2
  4639.  muls #6,d0
  4640.  muls #6,d1
  4641.  moveq #0,d2
  4642.  moveq #0,d3
  4643.  move.w 2(a2,d0.w),d2    ; firsty
  4644.  move.w 2(a2,d1.w),d3    ; secy
  4645.  sub.w d2,d3
  4646.  swap d3
  4647.  swap d2
  4648.  divs.l d6,d3
  4649.  
  4650.  subq #1,d6
  4651. .stickiny
  4652.  swap d2
  4653.  move.w d2,18(a3)
  4654.  swap d2
  4655.  add.l d3,d2
  4656.  add.w #20,a3
  4657.  dbra d6,.stickiny
  4658.  
  4659. .noline:
  4660.  rts
  4661.  
  4662.  DOABITOFLINE:
  4663.  subq #1,d6
  4664.  
  4665. .STICKINGOUR:
  4666.  swap d7
  4667.  move.b d7,2(a3)
  4668.  swap d7
  4669.  add.l a6,d7
  4670.  swap d0
  4671.  move.w d0,4(a3)
  4672.  swap d0
  4673.  add.l d1,d0
  4674.  swap d2
  4675.  move.b d2,8(a3)
  4676.  swap d4
  4677.  move.b d4,9(a3)
  4678.  swap d4
  4679.  swap d3
  4680.  move.w d3,16(a3)
  4681.  swap d3
  4682.  add.l d5,d3
  4683.  
  4684.  adda.w #20,a3
  4685.  swap d2
  4686.  add.l a4,d2
  4687.  add.l a5,d4
  4688.  dbra d6,.STICKINGOUR
  4689.  
  4690.  rts
  4691.  
  4692. FIRSTY: dc.w 0
  4693. LASTY: dc.w 0
  4694. FIRSTU: dc.w 0
  4695. SECU: dc.w 0
  4696. FIRSTV: dc.w 0
  4697. SECV: dc.w 0
  4698.     dc.w 0
  4699. FIRSTLEN: dc.w 0
  4700.     dc.w 0
  4701. LASTLEN: dc.w 0
  4702. MIDU: dc.w 0
  4703. MIDV: dc.w 0
  4704.  
  4705. *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  4706.  
  4707.  
  4708.  
  4709. ************************************************
  4710. ************************************************
  4711. ************************************************
  4712. ************************************************
  4713. ************************************************
  4714. ************************************************
  4715. ************************************************
  4716. ************************************************
  4717. ************************************************
  4718. ************************************************
  4719. ************************************************
  4720. ************************************************
  4721. ************************************************
  4722. ************************************************
  4723. ************************************************
  4724. ************************************************
  4725. ************************************************
  4726.  
  4727.  move.w d3,TOPLINE
  4728.  move.w d4,BOTLINE
  4729.  
  4730.  
  4731.  
  4732.  
  4733. *********************************************
  4734.  
  4735. CALCSQROOT:
  4736.  tst.l d2
  4737.  beq .oksqr
  4738.  
  4739.  movem.l d0/d1/d3-d7/a0-a6,-(a7)
  4740.  
  4741.  move.w #31,d0
  4742. .findhigh
  4743.  btst d0,d2
  4744.  bne .foundhigh
  4745.  dbra d0,.findhigh
  4746. .foundhigh
  4747.  asr.w #1,d0
  4748.  clr.l d3
  4749.  bset d0,d3
  4750.  move.l d3,d0
  4751.  
  4752.  move.w d0,d1
  4753.  muls d1,d1    ; x*x
  4754.  sub.l d2,d1    ; x*x-a
  4755.  asr.l #1,d1    ; (x*x-a)/2
  4756.  divs d0,d1    ; (x*x-a)/2x
  4757.  sub.w d1,d0    ; second approx
  4758.  bgt .stillnot0
  4759.  move.w #1,d0
  4760. .stillnot0
  4761.  
  4762.  move.w d0,d1
  4763.  muls d1,d1
  4764.  sub.l d2,d1
  4765.  asr.l #1,d1
  4766.  divs d0,d1
  4767.  sub.w d1,d0    ; second approx
  4768.  bgt .stillnot02
  4769.  move.w #1,d0
  4770. .stillnot02
  4771.  
  4772.  move.w d0,d1
  4773.  muls d1,d1
  4774.  sub.l d2,d1
  4775.  asr.l #1,d1
  4776.  divs d0,d1
  4777.  sub.w d1,d0    ; second approx
  4778.  bgt .stillnot03
  4779.  move.w #1,d0
  4780. .stillnot03
  4781.  
  4782.  move.w d0,d2
  4783.  ext.l d2
  4784.  
  4785.  movem.l (a7)+,d0/d1/d3-d7/a0-a6
  4786.  
  4787. .oksqr
  4788.  rts
  4789.  
  4790.  
  4791. **********************************************
  4792. **********************************************
  4793. **********************************************
  4794. **********************************************
  4795. **********************************************
  4796. **********************    ************************
  4797. **********************************************
  4798. **********************************************
  4799. **********************************************
  4800. **********************************************
  4801. **********************************************
  4802. **********************************************
  4803. **********************************************
  4804. **********************************************
  4805. **********************************************
  4806. **********************************************
  4807. **********************************************
  4808. **********************************************
  4809. **********************************************
  4810.  
  4811. TOPLINE: dc.w 0
  4812. BOTLINE: dc.w 0
  4813.  
  4814.  
  4815.  
  4816. **********************************************
  4817. **********************************************
  4818. **********************************************
  4819. **********************************************
  4820. **********************************************
  4821. **********************************************
  4822. **********************************************
  4823. **********************************************
  4824. **********************************************
  4825. **********************************************
  4826. **********************************************
  4827. **********************************************
  4828. **********************************************
  4829. **********************************************
  4830. **********************************************
  4831. **********************************************
  4832. **********************************************
  4833. **********************************************
  4834. **********************************************
  4835.     
  4836.  
  4837.     
  4838.  dc.w 0
  4839. YDIFF: dc.w 0
  4840.  
  4841. SPINAROUND: dc.w 0    
  4842. XCOS: dc.w 0
  4843. YCOS: dc.w 0
  4844. XSIN: dc.w 0
  4845. YSIN: dc.w 0
  4846. XCOS3: dc.w 0
  4847. YCOS3: dc.w 0
  4848. XSIN3: dc.w 0
  4849. YSIN3: dc.w 0
  4850. XCOS2: dc.w 0
  4851. YCOS2: dc.w 0
  4852. XSIN2: dc.w 0
  4853. YSIN2: dc.w 0
  4854. XADD: dc.l 0
  4855. YADD: dc.l 0
  4856. ZADD: dc.l 0
  4857. XOFF: dc.w 0
  4858. YOFF: dc.w 0
  4859. OLDXM: dc.w 0
  4860. OLDYM: dc.w 0
  4861.  
  4862.  
  4863.  
  4864. TEXTUREADD: dc.w 0
  4865.  
  4866.  
  4867. **********************************************************
  4868.  
  4869. UVCOORDS: ds.l 250
  4870. ROTATEDPTS: ds.l 250*4
  4871. SHADOWPTS: ds.l 250*4
  4872. ONSCREENPTS: ds.l 250
  4873.  
  4874. ZOFF:
  4875.  ifeq LARGESCREEN
  4876.  dc.w 768
  4877.  endc
  4878.  ifne LARGESCREEN
  4879.  dc.w 300
  4880.  endc
  4881.  
  4882. BALLXOFF: dc.w 0
  4883. BALLYOFF: dc.w 0
  4884. BALLZOFF: dc.w 0
  4885.     dc.w 999,0,0
  4886.  
  4887.     dc.w 0,0,0
  4888.     dc.w 0,0,0
  4889.     dc.w 0,0,0
  4890.     dc.w 0,0,0
  4891.  
  4892.  
  4893. BALLXANGPOS: dc.w 100,0
  4894. BALLYANGPOS: dc.w 150,0
  4895. BALLZANGPOS: dc.w 120,0
  4896.  
  4897.     dc.w 80,2000,100,200,100,1000
  4898.     dc.w 40,200,220,2000,150,1000
  4899.     dc.w 180,20,100,200,120,100
  4900.     dc.w 280,200,50,2000,170,100
  4901.  
  4902. LEFTRIGHT: ds.l 256
  4903.  
  4904. POLYGONDATA:
  4905.  ds.b 30000
  4906.  
  4907. OBJNAME: dc.b "ab3:vectobj/testcube",0
  4908.  even
  4909. doslibname: dc.b 'dos.library',0
  4910.  even
  4911. doslib: dc.l 0
  4912.  
  4913. ****************************
  4914.  
  4915. SINETABLE:
  4916.  incbin "ab3:includes/bigsine"
  4917.  
  4918.  
  4919. YANG: dc.w 0
  4920. XANG: dc.w 0
  4921.  
  4922.  
  4923. xmouse: dc.w 0
  4924. ymouse: dc.w 0
  4925.  
  4926. spleen: dc.w 0
  4927. lastspleen: dc.w 0
  4928.  
  4929. COPIEDPAL:
  4930.  dc.w 256,0
  4931.  ds.l 3*256
  4932.  ds.l 10
  4933.  
  4934. SHADOWBUFFER:
  4935. HIGHLIGHT: incbin "work:temp/HIGHLIGHT"
  4936.  
  4937. PALETTEBIT:
  4938. ; incbin "256palette"
  4939. ; dc.w $ffff,$fffe
  4940.  
  4941.  incbin "ab3:shadowtex/shadowpal"
  4942.  
  4943.  include "ab3:source_4000/chunky.s"
  4944.  
  4945. willy: ds.w 48
  4946.  
  4947.  
  4948. PALS:
  4949.  ds.l 2*49
  4950.  
  4951. pregour: dc.b 0
  4952. Gouraud: dc.b 0
  4953.  
  4954. PointAngPtr: dc.l 0
  4955. FRAMENUM: dc.w 0
  4956. PolyAngPtr: dc.l 0
  4957. PtsPtr: dc.l 0
  4958. LinesPtr: dc.l 0
  4959. POINTER_TO_POINTERS: dc.l 0
  4960. FRAME: dc.w 4
  4961. FLIBBLE: dc.w 0
  4962. START_OF_OBJECT: dc.l 0
  4963. num_points: dc.w 0
  4964. num_frames: dc.w 0
  4965. SORTIT: dc.w 0
  4966. PartBuffer: ds.l 2*32
  4967. endparttab:
  4968.  
  4969. x1: dc.w 0
  4970. y1: dc.w 0
  4971. z1: dc.w 0
  4972. x2: dc.w 0
  4973. y2: dc.w 0
  4974. z2: dc.w 0
  4975. x2b: dc.w 0
  4976. y2b: dc.w 0
  4977. z2b: dc.w 0
  4978.  
  4979. x3: dc.w 0
  4980. y3: dc.w 0
  4981. z3: dc.w 0
  4982.  
  4983. l1: dc.w 0
  4984. l2: dc.w 0
  4985.  
  4986. OBJONOFF: dc.l 0
  4987.  
  4988. SAVEHIGHS: ds.w 30
  4989.  
  4990. FASTBUFFER:
  4991.  dc.l fasty
  4992.  
  4993.  DS.B 64*256
  4994. fasty: ds.b 320*256
  4995.  ds.b 64*256
  4996.  
  4997. ; ifne MOTIONBLUR
  4998. fasty2:
  4999.  ds.b 320*256
  5000. ; endc
  5001.  
  5002. NORMBRIGHTS: ds.w 250
  5003.  
  5004. SPECBRIGHTS:
  5005.  dcb.l 100,31
  5006.  
  5007. ENDNORM:
  5008.  
  5009. LEFTUVS: ds.w 10*256
  5010. RIGHTUVS: ds.w 10*256
  5011.  
  5012. LEFTZS: ds.w 256
  5013. RIGHTZS: ds.w 256
  5014.  
  5015. NORMVECTS: ds.w 3*250
  5016.  
  5017. ;WORLD: incbin "ab3:includes/world"
  5018.  
  5019. ;TWEEN: incbin "ab3:includes/tweenbrightfile"
  5020.  
  5021. LINEBUFFER: ds.b 320
  5022.  
  5023. NEBBIE: incbin "work:temp/nebbieroar"
  5024.     ds.l (192/4)*16
  5025.  
  5026.  SECTION blib,code_f
  5027.  
  5028. TEXTURES:
  5029.  incbin "ab3:shadowtex/shadowmaps"
  5030.  even
  5031.  
  5032. BLUR:
  5033.  ifne MOTIONBLUR!ANTIALIAS
  5034.  incbin "ab3:shadowtex/blurfile"
  5035.  endc
  5036.  
  5037. FIREPAL: incbin "ab3:includes/spleen.256pal"
  5038.  
  5039. DEPTHBUFFER: ds.l 320*256
  5040.  
  5041. BALL: incbin "ab3:includes/ballzbuff"
  5042.  
  5043. Font: dc.l fontplace
  5044.  
  5045. fontplace: incbin "ab3:XENFONT.bin"
  5046.  
  5047.  SECTION BGDROP,code_c
  5048.  
  5049. RAWSCRN:
  5050.  ds.l 2560*8
  5051.  
  5052.